

m 


illl 

cs 

lEl 


;,<c- 

ws 

IN 


TECHNICAL I 
REPORT 



If m 


' 




A COMPUTER PROGRAM FOR CALCULATING 
EXTERNAL THERMAL-RADIATION HEAT LOADS 
AND TEMPERATURES OF SPACECRAFT 
ORBITING THE PLANETS OR THE MOON 


hy - 

Harold L. Finch and Duncan Sommerville 
Midwest Research Institute 

and 

Robert Vogt and Davis Bland 


V ogutrt. :yrujF 




j ff • 

II ||i||i 
. ' ' ’ ' ' ■ ■ 


NATIONAL AERONAUTICS AND SPACE ADMINISTRATION • WASHINGTON. 0. C. • DECEMBER 1968 


J£ 


NASA TR R-278 


A COMPUTER PROGRAM FOR CALCULATING EXTERNAL 
THERMAL-RADIATION HEAT LOADS AND TEMPERATURES OF 
SPACECRAFT ORBITING THE PLANETS OR THE MOON 

By Harold L. Finch and Duncan Sommerville 

Midwest Research Institute 
Kansas City, Mo. 

and 

Robert Vogt and Davis Bland 

Manned Spacecraft Center 
Houston, Texas 


NATIONAL AERONAUTICS AND SPACE ADMINISTRATION 


For sale by the Clearinghouse for Federal Scientific and Technical Information 
Springfield, Virginia 22151 - CFSTI price $3.00 



ABSTRACT 


A versatile computer program to predict the 
thermal history of a spacecraft orbiting a celestial 
body is documented. With this program, all external 
thermal-radiation heat loads, thin-skin temperatures, 
or both, are computed for a spinning or oriented 
spacecraft as a function of orbit position and time. 
The generalized program applies to any spacecraft 
configuration. A major feature of the program is its 
applicability to effects resulting from the extreme 
surface temperature of the Moon. 

Major sections are entitled ’’Heat-Transfer 
Theory, " "Celestial Mechanics Theory: Coordi- 
nate Systems, ” '’Numerical Analysis, ” "Digital 
Computer Program," and "Computer. Program 
Application." In addition, sample problems, a com- 
plete program listing, and a program user’s guide 
explaining the data input format are included. 
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A COMPUTER PROGRAM FOR CALCULATING EXTERNAL 


THERMAL-RADIATION HEAT LOADS AND TEMPERATURES OF 

SPACECRAFT ORBITING THE PLANETS OR THE MOON 

By Harold L. Finch and Duncan Sommerville 
Midwest Research Institute 

and 

Robert Vogt and Davis Bland 
Manned Spacecraft Center 


SUMMARY 


A computer program to predict the thermal history of a spacecraft in orbit about 
a celestial body is presented. The program, associated information required for use 
of the program, and the theory and methods used to develop the program are included. 
The thermal environment predicted is comprised of all external thermal -radiation heat 
loads, thin-skin temperatures, or both, for a spinning or oriented space vehicle as a 
function of orbit position and time. Manned and unmanned satellites and spacecraft or 
other objects in orbit oriented on the Sun, the Moon, Earth, or a planet other than 
Earth are within the capability of the program to predict the thermal history of oriented 
vehicles. A maximum of 200 vehicle surface elements can be analyzed by the computer 
program. The constant or temperature -dependent thermophysical properties of each 
element are obtained from one of eight optical-properties tables and from one of eight 
substrate -properties tables. 

The program is generalized so that calculations can be performed for any spec- 
ified element location. The program does not incorporate details of spacecraft config- 
uration, and the shadowing of one portion of a spacecraft by another spacecraft or by 
a portion of the same spacecraft is not considered. 

A significant feature of the program is the ability to consider the effects of ex- 
treme lunar-surface temperature variations on a lunar-orbital spacecraft. The results 
from a hypothetical lunar-orbital mission confirm the value of this feature of the pro- 
gram by displaying errors of +100° F, on the erroneous assumption that the tempera- 
ture of the Moon is constant along the surface. 



INTRODUCTION 


Because of the extreme temperature environment of space and because of the 
critical limits in the operating temperatures of spacecraft materials, thermal control 
is an important consideration in the development of spacecraft and components. With 
the absence of an atmosphere in space, the mode of heat transfer between the space- 
craft and its natural environment is thermal radiation. Thus, to insure satisfactory 
thermal design, a means of accurately determining the spacecraft external radiative 
environment is required. To determine the environment readily and economically for 
parametric design analysis, a computer program designed to continuously determine 
external heat fluxes and temperatures as a vehicle orbits a planet was developed by 
Midwest Research Institute (MRI) for the NASA Manned Spacecraft Center (MSC) under 
contract NAS 9-1059. To improve the efficiency, capabilities, and input-output for- 
mats of the program, several modifications have been added to the program by NASA 
MSC. This report is a description of the program developed by MRI with the NASA 
MSC modifications. 

The program, which is documented in the Uni vac 1108 FORTRAN V language, is 
a generalized analytical tool capable of determining solar, planetary, and albedo (the 
solar heat reflected from a planet and its atmosphere) heat fluxes, temperatures, or 
both. Heat fluxes are obtained for spinning vehicles or for a large number of infinites- 
imal vehicle surface elements for a vehicle that is planet or sun oriented. To deter- 
mine the quantity of incident thermal radiation on an elemental area of the vehicle, the 
angle of incidence is determined first by coordinate transformation. Using the angle of 
incidence, the configuration factors are obtained from a stored table of radiation- 
configuration-factor values. The table was developed from a previous study in which 
the numerical integration of the applicable equations was accomplished. The configu- 
ration factors are then used to calculate the component parts of the incident flux. The 
transient temperatures are calculated by numerical integration of the general differen- 
tial equation obtained by performing a heat balance about the elemental area. Although 
the program is capable of analyzing orbits about all planets except Pluto, special em- 
phasis has been placed on problems associated with lunar missions. (Sufficient plane- 
tary data are not available to analyze Pluto orbits. ) The approach used in analyzing 
spacecraft heating effects from the extreme surface temperature gradient of the Moon 
is known, at present, to be applicable only to the Moon. The computer program is 
written, therefore, so that its use is restricted to lunar orbits. However, if celestial 
bodies other than the Moon exhibit temperature variations similar to those of the Moon, 
the program can be modified accordingly, since this part of the program and the dis- 
cussion within this report are generalized. 


SYMBOLS 


A area 

a semimajor axis of orbit ellipse 

a semimajor axis of the semiellipse traced by the shadow of the planet 

s 
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B boundary on accumulated errors 

b semiminor axis of orbit ellipse 

b g semiminor axis of the semiellipse traced by the shadow of the planet 

Cj, Cg variable coefficient 

C specific heat 

P 

c distance between the center and focus of an ellipse 

D distance between the orbiting vehicle and the center of the planet 

DEC declination (latitude of the Sun with respect to the X Y and Z -axes) 

c c c 

d distance between the orbiting vehicle and the planet element 

E eccentric anomaly 

E , E emissive power, appendix B 

c p 

E n total error caused by numerical integration 

e eccentricity of orbit ellipse 

e accumulated effect of round-off error over n steps 

ro 

e^ a accumulated truncation error over steps 1 to n- 1 

e, one-step truncation error (the error caused by approximation over step n) 

XL 

F. radiation configuration factor, i = 1, 2, 3, 4 

G gravitational constant 

H altitude 

h vehicle skin thickness 

I intensity of radiation 

i inclination of orbital plane 

£ distance between center of areas exchanging radiant energy 
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planet mass 


M 

P 

P period (time to complete one orbit) 

Q internal heat generation 

q heat flux 

R solar reflectance of celestial body (albedo) 

RA right ascension (longitude of Sun with respect to the X Y and Z -axes) 

C G C 

r orbit radius 

o 

r^ planet radius 

r g shadow radius 

r v radius of a spherical vehicle 

S solar constant 

T temperature 

T m minimum planet temperature (dark side of planet) 

Tp average planet temperature 

t time 

V volume 

X, Y, Z coordinate axes 

a angle < 180° between the planet- Sun line and the X -axis 

ir 

a p absorptance of vehicle material with respect to planet-emitted radiation 

a r absorptance of the receiving surface 

o g absorptance of vehicle material with respect to solar radiation 

/3 angle < 180° between the planet- Sun line and the Z -axis, or the angle between 

P 

a planet element-Sun line and the planet element normal 
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y angle <180° between the planet-Sun line and the Y -axis 

P 

A0 integration step-size as specified in input data; a smaller increment may be 
chosen by the computer program 

6 angle between the vehicle-Sun line and the vehicle -vehicle element line 

e angle between the vehicle element-vehicle line and the vehicle -planet line 

e e emittance of emitting surface 

e emittance of planet 

P 

e emittance of vehicle material 

v 

9 angle between the planet-element line and the planet-vehicle line 

9 angle between the Sun-planet line and the planet-vehicle line 

s 

A’ angle measured from the X^-axis (towards Y ) to the projection of the 
vehicle -vehicle element line on the X v ~Y y plane 

A g angle measured from the X v -axis (towards Y y ) to the projection of the Sun- 

vehicle line on the X -Y plane 

v v r ■ 

X ' angle between the vehicle -planet line and a vehicle -planet element line 
p density 

S angle between the X^-axis and the projection of the Sun-planet line on the 

Xp-Yp plane 

cr Stefan- Boltzmann constant 

Y vernal equinox (an intersection of the Earth equator and the ecliptic) 

0 true anomaly 

0 angle between the vehicle -planet - Sun plane and the vehicle element- vehicle - 

planet plane 

0 in value of 0, where the vehicle passes into the shadow of the planet 

0out value of 0, where the vehicle passes out of the shadow of the planet 
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0„ angle between a normal to dA and a line from dA to A 

r ° r r e 



^ angle shown in figure B-l 

Si longitude of ascending node 

Si 1 angle between the Z^-axis and the vehicle -vehicle element line 

autumnal equinox (an intersection of the Earth equator and the ecliptic) 
Si angle between the Z -axis and the Sun-vehicle line 

co argument of perifocus 

Subscripts: 
c celestial 

e emitting body 

n specified number of computation steps 

o initial condition 

p planet 

r receiving body 

s Sun 

v vehicle 


ASSUMPTIONS 


The formulation of a practical computer program for the calculation of orbital 
heat fluxes and temperatures requires the use of simplifying assumptions . (These 
assumptions, none of which appreciably affect the accuracy of the program or the 
applicability of the program to the intended purpose, are summarized in the following 
items . It is necessary to evaluate each assumption with respect to application of the 
program to assure that each assumption is acceptable. 

1. Each element is assumed to be thermally isolated from all others; that is, 
conduction between nodes is not considered. However, the program output allows the 
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heat loads to each element as a function of time to be loaded conveniently into a heat- 
conduction program. If desired, the thermal -environment-prediction program may be 
modified so that the heat loads are punched on cards in a specific format for use as 
direct input to a heat-conduction program. Programing has been done in FORTRAN V 
to facilitate such modifications. 

2. Conduction and convection between the vehicle and its surroundings are 
neglected. This assumption is generally valid, since orbits are usually well above any 
significant atmosphere. 

3. Perturbations are neglected. In cases in which perturbations have a signifi- 
cant effect upon the orbit, the mission should be subdivided into two or more segments, 
and each segment should be run as a separate case. The independently obtained, per- 
turbed orbit parameters in each case are then reentered as new input, 

4. The position of the Sun with respect to the orbit is assumed to be fixed. This 
assumption is reasonable, unless the flight duration becomes an appreciable portion of 
the planet period. If this occurs, the mission can be subdivided and run as several 
cases, each with the appropriate coordinates of the Sun specified as input data. 

5. The solar constant is assumed to be independent of the vehicle orbit posi- 
tion. Since the semimajor axis of a vehicle orbit is generally small compared to the 
distance from the Sun to the planet, solar radiation is essentially constant throughout a 
given orbit. 

6. Planet data, such as albedo and mass, are stored internally and are assumed 
to be invariant. Although these data are essentially constant, the accepted values are 
occasionally refined. If the program data are to be refined accordingly, a section of 
the program must be changed and recompiled. This disadvantage of requiring refine- 
ment and recompilation is offset by the convenience of not having to include planet 
properties in the input data each time a case is to be run. 

7. The shadow of the planet is assumed to be cylindrically shaped, and penum- 
bral effects are neglected. The method of determining the intersection of the orbit and 
the shadow is described in appendix A. The resulting errors in Sun-shade point and 
heat -load determinations are negligible even for large orbits. 

8. The thermal radiation discussed in this report is assumed to be diffuse. 

This assumption is reasonable, except for cases in which the radiation is emitted by a 
polished vehicle surface. 

9. Planet albedo is assumed to be independent of surface position or features. 
An average value is used because the local values depend on such variables as clouds 
and other atmospheric conditions that are difficult to predict. 

10. Internally generated heat is assumed to be uniformly distributed over the 
applicable vehicle surface. If this assumption is not reasonable for any case, the in- 
ternal heat and corresponding surface element should be subdivided until an acceptable 
assumption is obtained. 
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11. On the sunlit side, the Moon is assumed to absorb and emit energy as a 
smooth sphere. With this assumption, the absorbed energy available for emission is 

1/4 

proportional to cos /3, and the lunar-surface temperature is proportional to cos /3. 
(A definition of /3 is provided in appendix B. ) Based on a thorough survey of the liter- 
ature related to the discussion in this report, this assumption was found to be the most 
realistic and practical approach to handling the extreme temperature gradients over the 
lunar surface. 

12. The temperature of the dark side of the Moon is assumed to be con- 
stant. This assumption is considered reasonable, since the heat radiated from the back 
side of the Moon is less than 1 percent of the heat radiated at the subsolar point, and 
variations in introduce negligible changes in the heat flux q^. 

13. The vehicle absorptance of reflected solar radiation is assumed to be the 
same as the vehicle absorptance of direct solar radiation. Although the spectral char- 
acteristics of solar radiation are probably changed when solar radiation is reflected, 

it is believed that this change has little effect on the solar absorptance a . 

s 


HEAT- TRANSFER THEORY 


Fundamental heat -transfer theory has been used to determine the impinging heat 
loads and the transient surface temperatures of orbiting spacecraft. Heat -transfer 
theory and equations applicable to the discussion in this report are summarized in the 
following paragraphs of this section. Detailed derivations are given in appendixes A 
to C. 


Heat Loads 

A vehicle orbiting in a vacuum is externally heated by thermal radiation, princi- 
pally from the planet being orbited and from the Sun. (For convenience, throughout this 
report, the term ’’planet” applies to any planet or the Moon.) The amount of heat orig- 
inating from other celestial bodies is generally negligible: Most of the solar radiation 
comes directly from the Sun. The remainder is reflected by the planet before imping- 
ing upon the vehicle surface and is referred to as albedo heat flux. Solar, planet, and 
albedo heat fluxes are illustrated in figure 1, 

Since an orbiting vehicle may spend a significant portion of each orbit in the 
shadow of a planet, shielded from both direct and reflected solar radiation, it is 
necessary to determine the part of the orbit during which the vehicle is shaded. The 
method used to determine the intersection of the orbit and the shadow is described in 
appendix A. 

The heat emitted by a planet depends on the surface temperature of the planet. 

If the planet is shrouded with a heavy atmospheric blanket, the surface temperature is 
relatively uniform because of convection and conductance heat transfer and can be con- 
sidered constant. It is impractical, if not impossible, to account for temperature 
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Figure 1. - Principal external heat loads. 


deviations from the average, since the deviations are functions of such intangibles as 
wind, snow, cloud coverage, and atmospheric activity. 

If a celestial body (for example, the Moon) has a negligible atmosphere and a 
nonconducting surface, the surface temperature gradients may be large and should 
therefore be determined. Fortunately, the factors that cause the extreme variations 
also make it possible to determine the surface temperature distribution with reasonable 
accuracy. 

External heat loads are summarized for spinning and oriented vehicles as func- 
tions of altitude and of the parameters Q , S2', A', O , A , 6, e, and 0 . Com- 

s s s c 

plete derivations are given in appendix B. 

Radiation impinging on spinning vehicles . - The period of rotation of a spinning 
vehicle is assumed to be fast enough for the impinging thermal radiation to be uniformly 
distributed over the vehicle surface. Solar radiation per cross-sectional area A v 

striking a spinning vehicle is 



S 


( 1 ) 


where the solar constant S is inversely proportional to the square of the distance from 
the Sun. 

Radiation received from a constant -temperature planet = constant) is given in 

equation (B16d) of appendix B as 


where 


^ = 2S(1 - R)F 
v 


T = constant 
P 



(2a) 


(2b) 


The corresponding heat rate for a variable -temperature planet ^ constant) is 

expressed in equation (B30d) as 


= 8S(1 - R)F 2 



constant 


(3a) 


where 



(3b) 


Equation (3b) closely approximates the exact radiation configuration factor, as demon- 
strated in figure B-5 of appendix B. 


For the condition when 9 >90°, F„ is set equal to zero by the computer pro- 

S it 

gram, since the vehicle is in the planet shadow and, therefore, the sun does not emit 
radiation to the vehicle. 
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The temperatures of the dark sides of variable-temperature planets are low, but 
the temperatures are high enough for the emission of some heat. According to equa- 
tion (B33), this emitted heat can be expressed by 


CL 4 

•*E- = 8 ctT F. T ^ constant (dark side of planet) 

A XXI 1 p 

V * 


(4) 


where is defined in equation (2b), a is the Stefan- Boltzmann constant, and T m 
is the average dark-side or minimum planet temperature. The value of T for the 
Moon (186° R) is stored internally in the computer program. 

The albedo heat flux impinging on a spinning vehicle is given in equation (B38d) as 


Albedo 


= 8SRF, 


(5) 


where F^ is defined in equation (3b). 

Radiation impinging on oriented vehicles . - An object is planet oriented if the line 
connecting the vehicle and planet center passes through the same vehicle surface ele- 
ment for all positions in the orbit path. Similarly an object is Sun oriented if the 
vehicle -Sun line passes through the same surface element at all times. 

The incident heat flux on an oriented vehicle can vary from one surface position 
to another. Therefore, expressions for the heat flux to any surface element must be 
derived. The equations developed in appendix B are applicable to either Sun-oriented 
or planet- oriented vehicles, provided the required independent variables (for example, 
8) are defined for each orientation, as described in the section of this report entitled 
"Celestial Mechanics Theory: Coordinate Systems. " The following heat -flux expres- 
sions are developed for a typical surface element located with respect to the vehicle 
coordinate system by the angles A’ and 

Solar radiation impinging on a surface element is 


= S cos 6 6 = 90 c 


(6a) 
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If 6 is greater than 90° (that is, cos 6 < 0), the element does not receive radi- 
ation from the Sun, therefore 



6 > 90° 


(6b) 


The heat flux from a constant -temperature planet is given in equation (B46c) as 


a S(1 - E)F. 

= ~tt — — - T = constant (7) 

K 4 P 


where F. is a function of altitude H and the variables 0 and e, which are illustra- 

ted in figure 2. Values of F^ have been evaluated by numerical integration over the 

applicable ranges of 0 c and e and to an altitude for which the radiation configuration 

factor, and therefore the planet heat, is negligible (an altitude of approximately five 

planet radii). (For all values of 0 ^ and 



Figure 2 . - Angular variables for determin- 
ing radiation configuration factors of ori- 
ented vehicles. 


e, F 4 is set equal to zero when 

F 4 ^H»5r p yF 4 (H=0) < 0. 015^. A table of 

over 2500 values representing the function 
F4 = F 0 c , e, H has been incorporated 

into the permanent data deck of the com- 
puter program. 

The heat flux from a variable- 
temperature planet is given in equa- 
tion (B42c) as 


^ = S(1 - R)F 3 T p ^ constant (8) 


where F„ is a function of H, 0 , e, and 

u C 

e • The variable e is the angle be- 
s s 

tween the vehicle, the planet, and the Sun, 
as shown in figure 2. In appendix B, the 
relationship that exists between F^ and 

P 4 is described in detail. 
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The impinging heat from the dark side of the variable -temperature planet is given 
in equation (B47) as 



4 

crT F. 
m 4 



constant (dark side of planet) 


(9) 


The albedo heat flux irradiating an oriented-vehicle element is expressed in 
equation (B50c) as 


\lbedo 


= SRF, 


v 


( 10 ) 


Transient Temperatures 

The transient temperature of an orbiting vehicle is obtained by conducting a heat 
balance on the vehicle and by solving the resulting differential equation. For this anal- 
ysis, each surface element of an oriented vehicle is considered to be thermally isolated 
from all other elements. 

The general governing differential equation is 


dT 1 

dt ~ pC V (Vs + %.lbedo a s + ^p^p + ^internal " ^out) 

r 


( 11 ) 


where p and 



are the density and the specific heat, respectively, of the vehicle 


material and V is the volume being analyzed. The term q^ n t erna j represents the 


amount of internally generated heat that is absorbed by the vehicle skin. It is assumed 
that Qj n |- erna i I s dissipated uniformly over the entire external area of the vehicle if it 

is spinning or over the surface element if the spacecraft is planet or Sun oriented. In- 
ternally generated heat is expressed as 


^internal ^g 


13 



The negative term q Qut in equation (11) is the heat emitted by the vehicle and is 
given by 



= oe T 
v 


(13) 


where T is the instantaneous surface temperature, e is the emittance of the mate- 
rial at temperature T, and A v is the total emitting -surf ace area. Introducing the 

appropriate heat terms into equation (11) gives the governing temperature differential 
equations as follows. For a spinning vehicle orbiting a constant-temperature planet 


dT _ 1 K 

dt “pC p h|_4 


+ 2SRa F„ 
s z 


S(1 - R)« F 1 
o + Q, 


g 



(14a) 


where h is skin thickness and cc g and a are the solar and planet absorptance of the 
material, respectively. 

For a spinning vehicle orbiting a variable -temperature planet 


Sr = jzii L-r ■ + 2SRa s F 2 + 2S ^ - R >% F 2 + % - 


or 


S + 2SRa F„ + 2 aa T 4 F, + Q - ae T 4 ) 

dt pC h\ 4 s 2 p m 1 g v / 

P 


depending on whether the vehicle is above the sunlit or the dark side of the planet, re- 
spectively. Near the terminator, the larger value of dT/dt from equations (14b) and 
(14c) is used. 


(14b) 


(14c) 
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For an oriented vehicle orbiting a constant -temperature planet 


dT 1 
dt = pC : 


SRff F, + 
s o 


sd - R)« p f 4 


+ - M v t4 ] 


For an oriented vehicle orbiting a variable -temperature planet 


W = ]5tfh h cos 5 + SR “s F 3 - S(1 - R >“p P 3 + Q g - < 14e > 


or if the oriented vehicle is above the shaded half of the planet 


dT _ 1 L 

dt “ pC h V 


Sa cos 6 + SRof F 0 + aT a F . + Q - oe 
s s 3 m p 4 g \ 


Near the terminator, equations (14e) and (14f) are both evaluated, but the smaller value 
of dT/dt is discarded. 

Equations (14a) to (14f) are of the form 


dT 4 

W = C 1 ~ C 2 T 


where and Cg are variable coefficients. Both t and 0 must be known in order 
to evaluate Cj and C 2 ; thus, an expression relating t and 0 is required. The nec- 
essary relationship is derived by first writing t as a function of the eccentric anomaly 
E in accordance with Kepler's laws of planetary motion. 


. (E - e sin E)P , 
t = rrz 


where t and E are measured from perigee. The period P is 
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where G is a gravitational constant and M 


P 


is the planet mass. 


Time can now be expressed as a function of 0 by combining equations (16) and 

( 22 ). 


t = 



(18) 


Equation (18) can be solved readily for t; however, an iterative solution is re- 
quired in order to obtain the solution 0 = f(t). Consequently, 0 has been selected as 
the independent variable. This is indicated in equation (15) as 


dT 



Ci-C 2 T 


(19) 


Equation (19) does not yield a closed-form solution, but can be solved numeri- 
cally. The procedure for numerically integrating equation (19) is described in the sec- 
tion of this report entitled ’’Numerical Analysis. ” 


CELESTIAL MECHANICS THEORY: COORDINATE SYSTEMS 


Four locations must be specified for the determination of vehicle heat loads: 

1 . The location of each vehicle surface element being analyzed (not applicable to 
spinning satellites) 

2. The location of the vehicle with respect to the planet being orbited 

3. The celestial location of the vehicle 

4. The location of the Sun with respect to the planet'being orbited 

The required locations can be obtained in terms of vehicle, planet, and celestial 
coordinate systems. These systems are identified throughout this report by the follow- 
ing notation: 


1 . 

Vehicle coordinates — X , 

Y , and Z 


v’ 

V V 

2, 

Planet coordinates — X , 

Y , and Z 


P 

P P 

3. 

Celestial coordinates - — X 

, Y , and Z 


c 7 c’ c 
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The three coordinate systems are summarized in table D-I of appendix D. 


Vehicle Coordinates 

For a spinning vehicle, no distinction is required between surface elements; and 
coordinates X v , Y v , and are not applicable, since it is assumed that the vehicle 

is spinning fast enough that impinging thermal radiation is uniformly distributed over 
the vehicle surface. 


For an oriented vehicle, however, the incident heat flux can vary considerably 
from one surface position to another. For example, element no. 1 on the planet- 
oriented vehicle shown in figure 3 receives heat emitted by the planet, and element 
no. 2 does not receive heat emitted by the planet. Consequently, a coordinate system 
for the location of each element being analyzed is required for the thermal analysis of 
oriented spacecraft. The vehicle coordinates used are illustrated in figure 3. The 
complex configuration shown in figure 3(a) is first replaced with a spherical mathemat- 
ical model, as shown in figure 3(b). Surface element no. 1’ and surface element no. 2’ 
on the sphere are selected so that they have the same space orientation as vehicle ele- 
ment no. 1 and vehicle element no, 2. If the orbiting body is planet oriented, surface 
positions on the sphere are defined with respect to the coordinate system illustrated in 
figure 3(c). The origin is at the center of the sphere, and the X v -axis is directed to- 
ward the planet center of mass. The Y v -axis is at right angles to the X v ~axis in the 

orbital plane, with the positive direction opposite the vehicle velocity vector. The di- 
rection of vehicle travel is always in the same direction as the movement when the 

X -axis is rotated into the Y -axis through the Smallest angle. The Z -axis is normal 
p P ^ 

to the orbital plane in a direction such that X v , Y y , and Z y form a right-handed co- 
ordinate system. Surface elements are defined by the angles A' and O’, as shown in 
figures 3(c) and 3(d). The angle A’ is measured from the X-axis ^toward Y y ) to the 

projection of the element on the X^-Y^ plane (0° < A'< 360°); ft' is measured from 

the Z -axis to the element (0° < S2' < 180°). 
v v ' 


The technique of locating elements on the vehicle with the two angles A' and O' 
can be likened to the method used to locate a point on Earth by using the two angles of 
longitude and latitude. If the orbiting body is Sun oriented, surface points or features 
are located with respect to the system shown in figure 3(d), The origin is again at the 
center of the sphere, but the X-axis is directed toward the Sun. The Y y -axis is in the 

orbital plane at right angles to X . The Z^-axis is always in the same hemisphere as 

the Z -axis and completes the orthogonal system . For the special case in which the 

ir 


projection of the X^-axis on the orbital plane is a point, the vehicle coordinate system 
should be set up as described previously. However, to eliminate ambiguity, Y y is 
chosen to be in the same direction as Y . Surface elements are described by the co- 

p 

ordinates A' and O', as before. 
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(a) Typical vehicle . 


■(b) Mathematical model of typical vehicle. 




(c) Mathematical model (planet oriented). 


(d) Mathematical model (Sun oriented). 


Figure 3. - Vehicle coordinate system for typical spacecraft. 


Planet Coordinates 

Before computing the impinging heat loads emitted or reflected by the planet, the 
location of the vehicle with respect to the planet being orbited must be specified. The 
orbits and planets shown in figures 4(a) and 4(b) are the same. However, in figure 4(b), 

the orbit is shown rotated into the plane of the page. Superimposing the X - and Y -axes 

P P 

(planet coordinates) onto the orbital plane simplifies the equations of motion by reducing 
the problem from three dimensions to two. The position of the vehicle can be defined 
in the two-dimensional system by either polar or Cartesian coordinates. 






The polar coordinates of a point on the orbit are the true anomaly 0 and the dis- 
tance D from the principal focus, or center of force, to the vehicle. The distance is 
given by 


D = a(l - e cos E) 


( 20 ) 


where a is the semimajor axis, e is the eccentricity of the orbit, and E is the 
eccentric anomaly. The variables e and E are formulated as 


e = 



c 

a 


(21) 


and 


E=2tan- 1 [(tan|)(^)_ 


(22) 


where b is the semiminor axis and c is the distance between the center and the focus 
of the ellipse. 

The Cartesian coordinates and of a point on the orbit are expressed as 


X = a(cos E - e) (23) 

ir 


and 


Y 


P 




sin E 


(24) 


Vehicle coordinates for a planet-oriented orbiting body superimposed on the 
planet coordinate system are shown in figure 4(c). As the vehicle makes one counter- 
clockwise revolution about the planet, the X^- and Y v ~axes are similarly rotated about 

the Z -axis, 
v 

The vehicle and planet coordinates for Sun-oriented satellites are illustrated in 
figure 4(d). The X y -Y y plane is generally not in the X p -Y p plane, since X y is di- 
rected toward the Sun. The vehicle coordinates have a fixed orientation in space 
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(a) Orbit and planet. 





(b) Spinning vehicle. 



(c) Planet-oriented vehicle. (d) Sun-oriented vehicle. 

Figure 4. - Planet coordinate systems for spinning and oriented vehicles. 


(assuming the planet to be stationary with respect to the Sun, which is essentially true 
during the time it takes to complete several orbits). 


Celestial Coordinates 

To determine the contribution of the Sun to spacecraft heating, the celestial loca- 
tion of the vehicle with respect to the celestial coordinates X , Y , and Z must be 

c c c 

specified, but first, two astronomical terms, ecliptic and vernal equinox, will be intro- 
duced. 

Positions in the solar system are commonly defined with respect to the ecliptic 
and the vernal equinox. The ecliptic is the plane described by Earth as it orbits the 
Sun. The vernal equinox, symbolized by Y, is a fixed line from the Earth, directed 
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toward the Sun at the instant the Sun crosses the Earth equator from south to north in 
its apparent annual motion along the ecliptic. The direction of the vernal equinox 
varies slightly (approximately 50.27 seconds of arc per year). Hence, to specify the 
coordinates of an object, it is necessary to state which vernal equinox is referred to as 
the principal direction (for example, the equinox of 1950 or 1965). 

Thus, the Earth intersects the vernal equinox at the start of spring (in the North- 
ern Hemisphere). The vernal equinox also lies along the line of nodes described by the 
intersection of the Earth equatorial plane with the ecliptic. The other point at which the 
Sun crosses the Earth equator, going from the Northern to the Southern Hemisphere, is 
designated by the symbol O and is the beginning of autumn in the Northern Hemisphere 
(autumnal equinox). At both points, day and night are equal. 

The orbit of a vehicle about Earth, a planet other than Earth, or the Moon is con- 
ventionally related to the celestial X c ~, Y c ~, and Z c ~axes of the planet by three angles 

S2, a>, and i. Before these functions can be defined, it is necessary to identify the 
geometric relationship between the vehicle orbit and the celestial axes. In figure 5(a), 
the general orbit of a vehicle is shown, with the intersection of the orbital plane and the 
planet surface shown in a broken line. The other broken line represents the intersec- 
tion of the plane containing the celestial X - and Y -axes with the planet surface. The 

broken lines cross at two points. (Only one point is visible in fig. 5(a). ) The two points 

define the line of intersection of the orbital plane and the plane containing the X - and 

c 

Y c ~axes. The two intersections are commonly referred to as the ascending node and 

the descending node, and the line connecting the nodes is called the line of nodes. The 
vehicle is at the ascending node when it is passing upward (north) through the 

V Y c P lane - 

The orbit and the X -, Y -, and Z -axes are related by Q, oj, and i, as shown 

V/ L v 

in figure 5(b). The angle S2 is the longitude of the ascending node, measured counter- 
clockwise in the X -Y plane from X to the line of nodes. The angle o> is the argu- 
0 c c 

ment of perifocus, measured in the orbital plane in the direction of travel from the 
ascending node to the perigee. The angle i represents the true inclination between the 
X c ~Y c plane and the orbital plane. The axes of the orbital plane are represented by 

X , Y , and Z , where X is directed through the perigee of the orbit, as previously 
P P P P 

defined. 

Any number of reference X c ~, Y c ~, and Z c -axes can be chosen. The primary 

consideration in choosing celestial coordinate systems for the analysis in this report 
was that the systems should be compatible with standard astronomical references in 
order to minimize input data compilation time and effort by the program user. The 
geocentric, modified heliocentric, and selenographic systems were selected to describe 
orbits about Earth, a planet other than Earth, and the Moon, respectively. 
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(a) General relationship of vehicle (b) General relationship of planet and 

and celestial body. celestial coordinate systems . 

Figure 5. - Relationship between orbit and general celestial coordinate systems. 


Conventional geocentric coordinates are employed to define orbits about Earth. 
In this system, the X -Y reference plane is the plane of the Earth equator, with the 


X-axis directed along the vernal equinox, 



Note: Earth X c - and Y c -axes lie in the Earth equatorial plane. 
Planet Xc- and Y c ~axes are parallel to the ecliptic. 


Figure 6. - Celestial coordinate 
system for Earth (geocentric) 
and other planets (modified 
heliocentric). 


as shown in figure 6 . 

A modified heliocentric coordinate 

system is used to define orbits about planets 

other than Earth. Since the equatorial 

planes of all planets are not well defined, 

the X -Y reference plane has been chosen 
c c 

parallel to the ecliptic , with the X -axis 

c 

directed parallel to the vernal equinox. The 

X -, Y -, and Z -axes for planets are also 
c c c c 

illustrated in figure 6. 

Conventional selenographic coordi- 
nates are employed to define orbits about 
the Moon. In this system, the X -Y refer- 

\> L 

ence plane is the plane of the Moon equator, 
and the Z c ~axis extends through the north 

pole of the Moon (fig. 7). The positive di- 
rection of the X -axis is from the center of 
c 

the Moon out through the prime meridian of 
the Moon. By definition, the prime meridian 
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of the Moon passes through the mean cen- 
ter of the Moon. The mean center is the 
point on the lunar surface that is directed 
toward the center of the Earth when the 
Moon is at the mean ascending node, and 
the node coincides with the mean perigee 
or mean apogee. The longitude is meas- 
ured as positive toward the west, as seen 
by an observer on Earth, or in a counter- 
clockwise direction from the X -axis (to- 

c 

ward Mare Crisium). The direction of 
the X c ~axis in space is not fixed, but 

revolves with the Moon, making one turn 
every 28 days. 



Figure 7. - Celestial coordinate system 
for the Moon (selenographic). 


Position of the Sun 

The location of the Sun with respect to the planet being orbited must be specified 
to complete the definition of Sun, planet, and vehicle relationships. The position of the 
Sun can be expressed with respect to the celestial body being orbited (in X , Y , and 

Z £ coordinates) in terms of right ascension RA and declination DEC, as shown in 

figure 8. For Earth, RA and DEC can be obtained directly from an ephemeris 
(ref. 1) for each day of the year. For the Moon, the required coordinates are listed in 
the ephemeris as latitude and colongitude, where co longitude is 


colongitude = 90° - longitude 



Figure 8. - Position of the Sun relative 
to the celestial coordinate system. 


Longitude must always be positive. 
Therefore, if colongitude is greater than 
1 90°, the equality becomes colongitude = 
450° - longitude. 

For a planet other than Earth, the 
right ascension and declination of the 
planet with respect to the Sun are given 
in heliocentric coordinates in reference 1 . 
The position of the Sun with respect to the 
modified heliocentric coordinate system 
can be obtained from these data, as dem- 
onstrated in the following examples. If 
the declination of the planet with respect 
to the Sun is +10° , the declination of the 
Sun with respect to the planet is -10°. If 
the right ascension or longitude of the Sun 
with respect to the planet is 236°, the re- 
quired value is 56° (236° + 180° =416°; 
416° - 360° = 56®). 
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The position of the Sun can be expressed with respect to the planet coordinate 

X Y -, and Z -axes in terms of a, /3, and y as shown in figure 9. The coordi- 
P P P 

nates RA and DEC can be transformed into a , j3, and y by performing rotations 
through the angles O, u>, and i, as shown in figures 8 and 9, In the first transforma- 
tion, the X -axis is rotated about the Z -axis through an angle Q, into the line of nodes 
0 c 

(fig. 5). In the second transformation, the Y -axis is rotated about the X -axis through 

c c 

the angle i. Finally, the X -axis is rotated through an angle w about the Z -axis. 

c c 

Performing the two transformations gives the following relationships: 


cos a - [(cos w)(cos S2) - (sin w)(sin 0)(cos i)] (cos RA)(cos DEC) 

+ [(cos w)(sin ft) + (sin cu)(cos ft)(cos i)] (sin RA)(cos DEC) 

+ (sin w)(sin i)(sin DEC) (25) 

cos y = [(-sin u>)(cos ft) - (cos w)(sin ft)(cos i)] (cos RA)(cos DEC) 

+ [(-sin ft)(sin oj) + (cos fi)(cos w)( cos i)J (sin RA)(cos DEC) 

+ (cos co)'(sin i)(sin DEC) (26) 

cos /3 = (sin ft)(sin i)(cos RA)(cos DEC) 

+ (-cos i2)(sin i)(sin RA)(cos DEC) + (cos i)(sin DEC) (27) 



Figure 9. - Position of the Sun relative 
to the planet coordinate system . 


For convenience, the derivations of equa- 
tions (25) to (27) have been omitted. 

After the position of the Sun with 
respect to the planet and the orbital plane 
has been obtained, the final step is to 
determine the position of the Sun with re- 
spect to the orbiting spacecraft. In the 
following paragraphs, the position of the 
Sun is determined with respect to spin- 
ning, planet-oriented, and Sun-oriented 
vehicles. 

Position of the Sun with respect to 
spinning vehicles . - Some of the solar 
energy that strikes the planet and the at- 
mosphere of the planet is scattered back 
into space and impinges on the orbiting 
vehicle. This radiation (albedo) travels 
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through the angle 0 (fig. 2). The sum of the direction cosines of the planet- vehicle 
s 

line times the sum of the direction cosines of the Sun-planet line is equal to cos 0 , 

s 

which reduces to 


cos 


X 

0 = ~E 

s D 


cos a + 


cos y 


(28) 


Solar energy directly irradiating the vehicle is the same throughout the orbit 
(except when the vehicle is shaded by the planet) if the assumption is made that the 
period of rotation of the spinning sphere is short (that is, that all surface elements 
continuously receive radiation from the Sun), and if the assumption is made that the 
Sun is a point source infinitely far away. Therefore, no other angles relating the 
position of the Sun with respect to the vehicle are required. 

Position of the Sun with respect to planet-oriented vehicles . - The relative posi- 
tions of the Sun, vehicle, vehicle element, and planet are defined by the angles ft , 

s 

A , 5 (fig. 10), and 0 (fig. 2). The function cos 0 for a planet-oriented vehicle is 
s s s 

the same as cos 0 for a spinning vehicle and is given in equation (28). 
s 

Since Z is parallel to Z and 
v p 

since it is assumed that the Sun is a point 
source infinitely far away, it follows that 


ft g =/3 (29) 


It can also be shown that 


A =2-0 + 7 r (30) 

s 


Planet-oriented vehicle 



Figure 10. - Position of the Sun relative 
to the vehicle coordinate system 
(planet oriented). 
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where 2 is the true anomaly of the solar projection of the X -Y plane (fig. 4d). If 

r r 

A is negative, 2ir radians must be added to A . However, only sin A and cos A 
s s s s 

are required by the analysis in this report; therefore, equation (30) need not be modi- 
fied for negative values. 

The angle 6 between the element-vehicle line and the Sun-vehicle line is derived 
by adding the products of the corresponding direction cosines of the two lines, which 
gives 


cos 6= sin O' cos A' sin O cos A 

s s 

+ sin O' sin A sin S2 sin A + cos O' cos O (31) 

s s s s ' 

Position of the Sun with respect to Sun-oriented vehicles . - The angle 0 is inde- 
pendent of vehicle orientation; therefore, cos 0 for a Sun-oriented vehicle is the 

s 

same as cos 0 for a spinning vehicle, which is given in equation (28). 

By definition, the X^-axis is directed toward the Sun; therefore 


O 


- H 
s 2 


(32) 


and 


A s = ° 


(33) 


as shown in figure 11. 

ThQ angle 6 between the element-vehicle line and the Sun-vehicle line can be 
derived by combining equations (31), (32), and (33) to obtain 


cos 6 = sin £2 cos A 
s s 


(34) 
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NUMERICAL ANALYSIS 


Zv 

It is important that numerical tech- 
niques be both accurate and fast. The 
accuracy and speed of numerically inte- 
grating an equation such as the general 
thermal expression given in equation (19) 
are related to the specific method and 
step-size to be used and to the complexity 
of the function. Of course, accuracy also 
depends on proper application of the nu- 
merical technique employed . 


Method of Integration 

Figure 11. - Position of the Sun relative Multistep methods require a con- 

to the vehicle coordinate system stant step-size. Although they are gen- 

(Sun oriented). erally faster than single-step methods, 

their use for this specific problem would 
necessitate a time-consuming iterative 

solution of equation (18) to find the true-anomaly increment corresponding to the 
constant -time increment. Consequently, a single-step integration method is chosen. 

An analysis of single-step methods in relation to the general equation to be solved 
resulted in the selection of the fourth-order Runge-Kutta technique. This method has 
long been accepted as being the most accurate and the fastest method. The Runge- 
Kutta technique is well suited as a rapid method for use in equation (19), since and 

Cg need to be calculated only once during each time interval. In the solution of 

equation (19), the integration speed of the fourth-order Runge-Kutta method is very 
close to the integration speed of a lower ordered method, or even to the integration 
speed of the multistep methods that are normally much faster. 


Step-Size and Error Analysis 

Assuming that the error attributable to a given single-step method is less than 
the maximum tolerable error, optimization of operating speed can be achieved by 
investigating the question of maximum step-size. 

The computer program has been written so that a step-size A0 can be input to 
the computer. The program prints out every nA0 interval, where n is a specified 
integer; however, calculations may be based on a smaller, more practical interval for 
accuracy, speed, and stability. The practicality of A0 is determined at the start of 
each interval. Practical step-size and its determination by the program are described 
in appendix C . 
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The errors induced by numerical integration can be broken down in the following 
manner . 


E = 
n 


e, + e, + e 
t,n t,a ro 


(35) 


where E * total error at t = n 
n 

e^ n = one-step truncation error (the error caused by approximation over step n) 

e. = accumulated truncation error over steps 1 to n - 1 
t, a * 

e = accumulated effect of round-off error over n steps 
ro ' ■ 

Accumulated errors . - Contrary to the usual case in numerical analysis, the sum 

of the accumulated errors e. and e is bounded by some number B, which is 

t,a ro J ’ 

much less than the accuracy of the input data for any practical step -size and is there- 
fore negligible regardless of total integration time. The boundary is a result of the 
stability of the function to be integrated; that is, the solution converges to a specific 
temperature at a given true anomaly and, on all subsequent orbits, will be virtually at 
that temperature. Since the temperature at point n in one orbit is the same as the 
temperature at point n in the next orbit, there is no significant accumulation of errors. 

To test this error analysis, a spinning-satellite case was programed for the 

IBM 1620 computer so that e and e could be analyzed separately. To show that 

x y r. ro 

e rQ was nearly zero, the program was run using eight-digit and then 12-digit accuracy. 

The difference in the two solutions occurred in the seventh or eighth decimal place in 
all the orbits run. 

The analysis included the calculation of a function proven to be asymptotic to the 
accumulated truncation error of the integration (ref. 2). Although the solution of this 
function was small with respect to the solution of the thermal equation and was oscilla- 
tory in nature, it did increase gradually in magnitude. Nevertheless, the stability of 
the function was generally verified, since asymptotic approximations are not exact. 

One-step truncation error . - To study e^ , the IBM 1620 computer analysis for 

total truncation error was used again. Since the one-step error e^ ^ made during the 

first step is generated by the accumulated error function, the analysis necessarily con- 
tained the rudiments of a one -step error function. The only modification necessary to 
generate the one -step errors continuously was to make the computer ’’think" that each 
step was the first. This technique was applied to the integration of many differential 
equations with closed -form solutions and was found to have good accuracy. Although 
the level of effort did not permit extensive application of this technique to equation (19), 
the runs that were made indicated that any practical step-size gave an e^ of less 

than 0.05° R. 
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Since the sum of the accumulated errors is bounded by B, equation (35) can be 
written as 


E n = 


e. + B 
t, n 


( 36 ) 


The results of the error analysis indicate that e^_ n < 0.05° R and that B < 0. 1° R; 
therefore, the total error attributable to the numerical integration is 


E < 0.15° R 
n 


(37) 


which is negligible, considering the accuracy of the input data 


Integration Technique When the Function Is Nondifferentiable 

A major contribution of the numerical analysis was the discovery and elimination 
of a significant error caused by misapplication of the integration techniques employed 
in previous similar studies. In all standard numerical techniques, the function to be 
integrated is assumed to be continuously differentiable at every point in the integration 
interval. This assumption does not apply to equation (19) because of the behavior of the 
constant C^. When the orbiting vehicle enters or leaves the shadow of the planet, 

may change suddenly from a relatively large number to almost zero, or vice versa, 

causing the function to be nondifferentiable at the Sun-shade points. In the IBM 1620 
computer analysis, the single-step error in an interval containing a Sun-shade point 
was revealed to be much larger (up to 10° R larger) than the total accumulated error 
encountered immediately prior to that interval. In support of the stability conjecture, 
even this large error became negligible after a few integration steps. 

The error from misapplication is eliminated by subdividing each interval contain- 
ing a Sun-shade point so that the nondifferentiable point coincides with the boundary of 
the interval and thus does not exist within the interval. 


DIGITAL COMPUTER PROGRAM 


The determination of impinging heat loads, absorbed heat loads, and transient 
temperatures for up to 200 surface elements of a spacecraft in orbit is an ideal applica- 
tion of a high-speed digital computer. Performing this determination in any other 
manner would be impractical, at best. Accordingly, a Univac 1108 computer program 
incorporating the theory and numerical techniques described in the previous sections 
has been written and validated. Programing was done in FORTRAN V to facilitate any 
modifications that the program user might wish to perform . Appendixes D to J provide 
the program user with detailed information on the computer program source and data 
deck structure. 
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Summary of Computer Program Capabilities and Applications 

The computer program is designed to compute, plot, and print out heat loads and 
temperatures for a vehicle in orbit about the Moon or about any planet except Pluto. 

The orbiting vehicle may be spinning or have a fixed orientation with respect to either 
the Sun or the celestial body orbited. The planet surface temperature, which is used 
in determining the amount of impinging thermal radiation originating from the planet, 
is assumed to be constant for all celestial bodies except for the Moon, for which sur- 
face temperature may be considered either constant or variable. 

The heat loads during one orbit or any fraction of an orbit can be determined by 
the computer program. When it is necessary to compute temperature, more than one 
orbit may be specified. However, if all of the temperatures become stable (that is, 
differ by less than 0. 5° R from one orbit to the next), the case being computed is auto- 
matically terminated. 

The optical properties, specific heat, and density of the vehicle coating(s) and 
substrate(s) are temperature dependent. Up to 21 data points of material property ver- 
sus temperature from 0° to 10 000° R (the effective temperature of the Sun) may be 
specified. Absorptance with respect to heat flux radiated by the planet is found as a 
function of the effective temperature of that part of the planet actually radiating to the 
element of an orbiting vehicle. A maximum of eight tables of optical properties may 
be used. Eight tables of specific heat and of density corresponding to eight possible 
substrate materials for vehicle skin may also be used. 

When temperature calculations are desired, up to eight schedules of internal heat 
versus time can be used. Each data set is input as a table of internal heat and switch- 
ing time, corresponding to a change to the next value of internal heat. As many as 
20 different values (10 duty cycles) may be included in each of the eight tables. If the 
program runs for more than one orbit, the same sequence of internal heat loads is 
applied for the successive orbits. 

Satellite position in orbit is given by the true anomaly 0 measured from perigee. 
A starting value 0 q and a step -size A0 are input. The starting value 0 Q must be 

between 0° and 360°, and A0 must be a submultiple of 360° and must be 2 2°. For 
example, 2°, 5°, 6°, 7.5°, 8°,. 9°, or 10° are all acceptable values for A0, but 7° is 
not acceptable, since 360/7 is not an integer. 

The step-size A0 may be subdivided internally to give the optimum interval with 
respect to accuracy and computer time; however, the input value of A0 will not be ex- 
ceeded. For temperature calculations, external heat fluxes are considered constant 
throughout the specified A0 interval, provided the vehicle does not pass in or out of 
the shadow of the planet during the time corresponding to A0. Furthermore, only one 
change in internal heat for each element is recognized per interval. Experience indi- 
cates that A0 = 10° is a reasonable upper bound. 

The position of the Sun relative to the orbit may be given conventionally as right 
ascension and declination, both of which can be obtained from an ephemeris; or the 
position of the Sun may be specified in terms of the angles a, y , and (3 relative to 
the X , Y , and Z coordinate axes. 
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As many as 200 elements of oriented vehicles may be processed in a single case. 
Each element has a specified thickness, initial temperature, and position on the vehi- 
cle. An element may use one of eight choices for each of the following: optical prop- 
erties, substrate material, and internal heat duty cycle. 

The effects of variations of thickness, initial temperature, material, or internal 
heat loads can be studied in a single case if a number of elements are chosen with the 
same positions, but with different values for the other parameters. Thus, a single 
case may be an entire parametric study in itself . Additional flexibility is provided so 
that the unchanged values can be represented by blank fields in the input deck if any of 
the input parameters are to remain the same from one case to another. 


General Deck Preparation 


Figure 12 is an illustration of the physical sequence of the deck structure re- 
quired. The name shown on the card preceding each routine (i.e. , DECK1) can be re- 
lated to the actual name of the routine by the following list: 


EXEC = 

PIL0T 

DECK13 = SUN0R 

DECK26 = GE0FAC 

DECK1 = 

HEAD 

DECK14 = BETA90 

DECK27 = QIIN 

DECK2 = 

TINPUT 

DECK15 = WYE 

DECK28 = DDVETA 

DECK3 = 

L00P 

DECK16 = SIGBET 

DECK29 = DDFERI 

DECK4 = 

T0UT 

DECK17 = INTERP 

DECK30 = TABLE 

DECK5 = 

HEAT 

DECK18 = ARR0UT 

DECK31 - MAIN2 

DECK6 = 

FREAD 

DECK19 - ARC0S 

DECK32 = DRAW 

DECK7 = 

QIFIND 

DECK20 = QUART 

DECK33 = SKALE 

DECK8 = 

TALLY 

DECK21 = PHIFN 

DECK34 = XINTRP 

DECK9 = 

L0CUS 

DECK22 = GFN 

DECK35 = ACCEND 

DECK10 = 

TEMPER 

DECK23 = F0FXY 

DECK36 = HIL0W 

DECK11 = 

INIT 

DECK24 = DELTA 

DECK37 = TIDENT 

DECK12 = 

FIND 

DECK25 = ERR0R 

DECK38 = FDTA 


If Stromberg-Carlson 4020 (SC -4020) plots are not requested, LINK2 may be 
omitted entirely. This can be done by deleting card number DK033000 of subroutine 
L00P (DECK3) and by removing all subroutines which make up LINK2 (DECK31 through 
DECK38). This procedure must be used if data - computation facilities do not have 
SC -4020 capabilities described in appendix H. 


Data Deck Preparation 

The data deck consists of three groups of data. They are the permanent-data 
cards, the material-properties cards, and the case-data cards. The permanent data 
consist of 147 permanent -data cards that include 144 cards containing the radiation 
configuration factors and three cards containing alphabetic data used in headings. For 
documentation purposes, the permanent -data cards are listed as part of the sample - 
case input data discussed in appendix G. Since the permanent data must be used ex- 
actly as listed, only the material-properties data and case data shall be of concern for 
data preparation. 
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(BACK OF DECK) 



Figure 12.- Deck structure. 


Appendix I is a guide for preparing program data. The guide is complete enough 
that the program user can use the appendix to prepare data decks. Additional informa- 
tion and the related theory are described in other sections of the report and in the 
other appendixes. 


COMPUTER PROGRAM APPLICATION 


A hypothetical lunar mission was run, using the described computer program. 
For the hypothetical lunar-orbital mission, the spacecraft was planet oriented, and a 
variable planet surface temperature was used. The orbit parameters were such that 
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pericynthion occurred over the intended landing site, which was 13° south of the Moon 
equator and 3° east (as seen from Earth) of the prime meridian of the Moon. A detailed 
discussion of the use of the computer program in spacecraft design and orbit selection 


is presented in reference 3, 

Pertinent orbit data consisted of the following: 

Altitude H, n. mi. . . . , . . . . . ........ 10 to 190 

Inclination i, deg .................. 13 

Right ascension of ascending node SI, deg 87 

Argument of perifocus co , deg .......... . 270 

True anomaly at initial time 0 q , deg ....... 0 


The mission was flown on December 1, 1963. The position of the Sun in selenographic 


coordinates, as given by an ephemeris, was as follows: 

Colongitude, deg 88. 74 

Declination DEC, deg 0.86 

Right ascension (90° - colongitude) RA, deg ... 1.26 


At a declination of 0.86° and a right ascension of 1. 26°, the Sun is almost in the orbital 
plane. 


The temperature -time history of differently oriented and differently painted sur- 
face elements reveals several interesting characteristics. In figure 13, it is shown that 
a white element facing away from the Moon cools initially, even though it may be facing 
almost directly into the Sun. However, a similarly oriented black element rises to a 
peak temperature at 0 = 60°, then gradually drops in temperature as it turns away 
from the Sun. This difference is to be expected, since the white element reflects a 
considerable amount of solar energy; whereas, the black element will absorb most of 
the solar radiation that impinges upon its surface. 

In figure 14, it is shown that the temperature curves of a black element and a 
white element facing the Moon are similar, since black and white elements absorb 
long-wavelength radiation in almost the same amount. Also, the hump in the black- 
element curve at about 0 = 100° and 0 = 260° occurs because both elements are 
briefly irradiated by the Sun immediately before entering the shadow of the Moon and 
immediately after leaving the shadow. However, the hump appears in the black- 
element curve only, since the black element absorbs the solar radiation more readily. 

In figure 15, comparison of the black element facing the Moon with the black 
element facing away from the Moon and toward the Sun reveals that at 0 = 0°, the 
element facing the Moon is almost as hot as the element facing away from the Moon and 
toward the Sun. The conclusion is that, at low lunar orbits, planet heat can be as sig- 
nificant as solar heat. 
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Orbiting-vehicle surface temperature. 



True anomaly, 0, deg True anomaly, 0 , deg 


Figure 13. - Simulated lunar module, Figure 14. - Simulated lunar module, 

elements facing away from the elements facing the Moon. 

Moon. 



True anomaly, 0, deg True anomaly, 0, deg 

Figure 16. - Comparison of constant and 
Figure 15. - Simulated lunar module. variable Moon temperature. 
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To investigate the effect of the surface temperature gradients of the Moon not 
being considered, the same case was run, assuming a constant Moon temperature. The 
results plotted in figure 16 reveal that the constant-Moon-temperature curve is a flat 
curve that averages out the maximum and minimum peaks of the variable-Moon- 
temperature curve. It is clearly shown in figure 16 that a significant variation (about 
100° R) is caused by neglecting the surface temperature gradient of the Moon. These 
results confirm the importance of the variable-planet-temperature method in analyzing 
lunar missions. 


CONCLUDING REMARKS 


An operational computer program to predict spacecraft heat loads and tempera- 
tures has been developed. The program is applicable to a wide variety of vehicle- 
mission combinations. Although no unduly restricted assumptions are incorporated into 
the celestial, thermal, and numerical theory, certain conditions were not considered 
in order to retain the desired versatility. However, the program was written so that 
it could be expanded readily to include additional features and details , 


Manned Spacecraft Center 

National Aeronautics and Space Administration 
Houston, Texas, August 22, 1968 
039-00-00-85-72 
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APPENDIX A 


INTERSECTION OF ORBIT AND SHADOW 


The intersection of the orbit and the shadow can be determined by simultaneously 
solving the equations that express the vehicle path and the trace of the shadow on the 
orbital plane. 

If (3 = 0° or 0 = 180°, the trace of the shadow is a circle of radius r that does 

, p 

not intersect the vehicle orbit. (The angle /3 is illustrated in appendix B. ) If 
0° < /3 < 180°, but /3 * 90°, the trace is a semiellipse, as shown in figure A-l. The 
equation of the orbit path, based on the notation shown, is 


( X P + C ) Y 


2 

P_ = i 

— A 


(Al) 


ft 


-Hi 


p 



Figure A-l. - Intersection of the orbit plane and the shadow of the planet. 
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The corresponding expression for the intersection of the shadow with the orbital plane 
is 


(X p cos 2 + Y p sin 2)' 


(X p sin 2 - Yp cos 2) ' 


- 1 


(A2) 


Equations (Al) and (A2) can be combined to yield a biquadratic (quartic), which is 
solved in this analysis by the Ferrari method. Other numerical approaches may be 
faster, but they become unstable in some cases. The Ferrari method, which can be 
used to solve any quartic equation, is explained in most theory -of -equation texts and 
in many mathematical handbooks (for example, ref . 4). 


After the quartic equation has been solved for X p , the corresponding Y p values 

can be determined from either equation (Al) or (A2); however, care must be taken to 
avoid accepting an extraneous root. Extraneous roots do not occur if both equations are 
2 

solved for Y p and the expressions equated. The result reduces to the following equa- 
tion, which is single valued for all X . 

r 





2 2 

x I ( cos /3 cos 2) + sin 2 


3 - 



2 


■0 li 1 



(cos /3 sin 2) 


+ cos^zj] 


(A3) 


where 


X = 



(A4) 


The true anomaly of the Sun- shade points is calculated from 


tan 0 - 



(A5) 
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If the shadow and orbit ellipses do not intersect or if they cross in only two 
places, the quartic equation can yield spurious (that is, false) real roots. Since equa- 
tion (A3) is valid only at the ellipse intersections, solutions of equation (A3) that cor- 
respond to spurious roots are meaningless. Therefore, the validity of each pair of 
coordinates must be determined, and this is accomplished by testing whether the 

and Y values satisfy both equations (Al) and (A2). 

P 

If 0 = 90°, the trace of the shadow ellipse degenerates to a pair of parallel lines 
that are expressed in polar form as 


r sin(2 - 0) = r (A6a) 

s p 

and 

r sin(2 - 0 ) = ~r (A6b) 

s p 


where r g is the distance from the lines to the center of mass of the planet. A similar 
expression of the orbit ellipse is 


I* — ~ 

o a + c cos 0 


(A7) 


where r Q is the distance from the orbit ellipse to the center of mass of the planet. 

Equating r and r in equations (A6a) and (A7) gives 
s o 



sin 2 + cr 


cos 0 - b cos 2 sin 0 - ar 


0 


(A 8a) 


In general, equation (A8a) is transformed to a quadratic in cos 0 by substituting 


+ (l - cos'V) 


1/2 


for sin 0. The roots of this quadratic are substituted into equa- 
tion (A8a) to give sin 0. Once sin 0 and cos 0 are known, 0 is easily found. A 
similar procedure yields the other Sun-shade point if equations (A6b) and (A7) are 
equated. 


( o \ * 

b sin 2 + cr Icos 0 - b' 


cos 2 sin 0 + ar = 0 

r 


(A 8b) 
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If the coefficient of sin 0 or cos 0 in equation (A8b) vanishes, the problem is 
less difficult, in that sin 0 or cos 0 can be solved for directly, and the corresponding 

1/2 / o \ 1/2 


function is determined from either sin 0 == ± (l - cos^0) 


or cos 


0 = + (l - sin^0) 


Equations (A5) and (A8b) may give zero, two, or four valid mathematical roots; 
however, two of the roots may not satisfy the condition that the Sun-shade points lie on 
the shaded side of the orbit. A root is discarded unless the angle between the line con- 
necting the Sun- shade point and the planet and the line of the projection of the Sun on the 
orbital plane is obtuse. 
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APPENDIX B 


RADIATION HEAT- TRANSFER DERIVATIONS 


A general expression for thermal radiation from one surface to another can be 
derived by considering the total radiation from the emitting surface. This derivation 
may be visualized by placing a hemisphere over the emitting- surface element A g , as 

shown in figure B- 1. This hemisphere will intercept all of the heat emitted from A g , 

and the radiation received by an element dA f is given by the equation 


e cos 0 A cos 0 
dq = 1-^ £ dA 


(Bl) 


where 0 r (not shown) is the angle between a normal to dA f and a line from dA f to 

A , and e is the emittance of A . The proportionality factor I is shown as the 
0 0 0 

intensity of radiation. Assuming that the emitting surface is diffuse, the intensity is 
independent of direction and is constant. The apparent or intercepted intensity is pro- 
portional to A , as seen from dA on the hemisphere. Thus 



I (0 e ) = I cos 0 e (B2) 


which is Lambert's cosine law. If dA 

r 

is on the hemisphere surface, 0 r is 0°; 
therefore 


dq = 


I cos 0Ae dA 
e e e r 


(B3) 


Figure B-l. - Mathematical model for 
deriving the general thermal- radiation 
equation. 
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Writing dA in terms of 0 and i/ 7 and integrating, equation (B3) becomes 
I* G 


q = IA e 
e e 


[ I cos 0 e sin d0 g = IA 

a 


(B4) 


The heat radiated by A is 

e 


q , = e faT ^)a = e E A 
^out e \ e / e e e e 


(B5) 


where E is the emissive power of A . Since all of the emitted heat is intercepted 

© G 

by the hemisphere, the heat emitted is equivalent to the heat received. Equating equa- 
tions (B4) and (B5), simplifying the results, and solving yields 


I = 



(B6) 


Combining equations (Bl) and (B6) and introducing the absorptance of the receiv- 
ing surface gives the general equation for radiant heat transfer between two surfaces 


dq = 


E cos 0 A cos e 
e e e r r e 
s dA 


(B7) 


In tiie following section of this appendix, equation (B7) will be used to derive 
specific equations that express the amount of planetary and albedo heat that is re- 
ceived, absorbed, or both, by either a spinning or an oriented vehicle. Derivations 
will be made for constant-temperature planets, as well as for variable-temperature 
planets. 


Planet Heat Flux for a Spinning Vehicle 
and Constant Planet Temperature 

Seavey (ref. 5) simplified the mathematics of the derivation with the theorem 
that the flux incident on a small surface element from an extended source of uniform 
brightness is independent of the shape of the element and the shape of the emitting 
surface. A modification of Seavey’s solution is developed by first replacing the part 
of the planet that the vehicle receives radiation from with a concave disk of radius i, 
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as shown in the top portion of figure B-2. This geometrical substitution can be visual- 
ized by observing that the Sun, a uniform emitting surface with respect to surface 
position, appears to the observer on Earth as a disk. Similarly, the vehicle is re- 
placed by a flat disk that has an infinitesimal area, compared to the area of the planet 
disk. 



It can be seen in the center diagram 
of figure B-2 that every line between the 
vehicle and the planet intersects the planet 
concave disk perpendicularly. Likewise, 
the vehicle-planet lines can be made nor- 
mal to the planet concave disk by letting 
the disk pivot about its center, allowing the 
planet differential elements to receive 
radiation from different orientations of the 
vehicle disk. Thus, in the bottom portion 
of figure B-2, element A receives radia- 
tion from element A*, and element B re- 
ceives radiation from element B’ . The 
pivoting of the planet concave disk is 
justified by the previously mentioned 
theorem employed by Seavey. 

Equation (B7) is modified to express 
the heat received by a vehicle area A v 

from a ring-shaped element of area dA^ 

as 



Figure B-2. - Seavey's model for deter- 
mining radiation between two spheres 
of uniform brightness. 


E„ 

dq = — 


cos ! 1 cos tfAea 
_ P J. V P P 


dA„ 


nJL 


(B8) 


Assuming that celestial bodies are perfect 
emitting surfaces (that is, that e p = 1) and 

substituting 0-0*0°, equation (B8) is 

Jr " 

reduced to 

(B9) 
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The planet differential area and the effective vehicle area are 

dA = [27 t(£ sin X)] (l dX) = 2irl ^sin X dX 

Ir 


(BIO) 


and 


A 


v 



(Bll) 


The emissive power is 


E = <rT 
P P 


(B12) 


where 


is the average planet temperature. 


A heat balance on the planet yields 



Combining equations (B12) and (B13) gives 



(B13) 


(B14) 


which becomes 


. _ S(1 - R) 
'P 4 


(B15) 


Substituting equations (BIO), (Bll), and (B15) into equation (B9) and integrating 
yields the desired relationships 


^ = 2S(1 - R><* p Fj>r v 2 


T = constant 
P 


(B16a) 
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and 


where 



S(1 - R)a F 1 
2 


T = constant 
P 



(Bl6b) 


(Bl6c) 


The planet heat rate per unit area impinging on the spherical vehicle is 


i- = 2S(1 - R)F t 


T = constant 
P 


(Bl6d) 


A derivation not based on Seavey’s theorem can also be made and will be pre- 
sented in condensed form. The heat emitted from planet element dA (fig. B-3)and 

Sr 

absorbed by a satellite of radius .r is 



E p CQS Pp cos K dVpVV 

vl 2 


(B17) 


Again substituting e p =1, 0 y = 0, and E p = S(1 - R)/4 and integrating, equation (B17) 
becomes 



S(1 - R)r 


’ [fcos 0 
v P If VP 

JJ £ 2 


•dA 


(B18) 
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Note: The Sun- planet-vehicle plane lies 
in the plane of the page . 


Figure B- 3. - Geometry for determining heat exchange between 
planet and spinning vehicle. 


It can be shown that 


cos 


D cos 9 - r 

P 

i 


(B19) 


£ 2 = r 2 + D 2 - 2r D cos 9 

p p 


(B20) 


and 


dA = r 2 sin 9 d9 0 

p p 


(B21) 


where the variables are illustrated in figure B-3. Equations (B19) to (B21) were used 
in reference to evaluate an expression similar to equation (B18), and from this work 
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the following equality can be developed 


// 


COS 


Combining equation (B22) with equation (B18) gives 


/ 

It \ 2 

1 / 2 ' 

<1 - 

»-(*) 

> 


- - 

V 


(B22) 



f 


1/2' 

S(1 - R)a 


/ v 

/r \ 


q p " 2 ^ 

1 " 

1 - ( — 
\D J 

> 


\ 

— — 

/ 


(B23) 


which is equivalent to equation (Bl6a). 


Planet Heat Flux for a Spinning Vehicle 
and Variable Moon Temperature 


Equation (B17) for radiant heat exchange between a surface differential element 
and a spherical satellite is applicable also to a variable Moon temperature. If the 
Moon has a negligible atmosphere and is a good thermal insulator, the element dA 

P 

is in thermal equilibrium. That is, if mechanisms for heat transfer do exist (for 
example, conduction and convection in a planet atmosphere) so that dA is not in 

r 

equilibrium, the surfa.ce temperatures tend to approach an average value. Also, the 
presence of an atmosphere, which may change considerably from one orbit to the next, 
makes it impractical to prepare meaningful albedo input data. Thus, average albedo 
values are used for the planets, and the method for constant (that is, average) planet 
temperature is employed. Based on the correlation of independently obtained experi- 
mental data, the Moon, as "seen” by a spacecraft in lunar orbit, for all practical 
purposes, can be considered a smooth sphere when determining the lunar planetary 
heat received by a lunar- orbital vehicle. Therefore, the heat emitted is equivalent to 
the solar heat absorbed, as shown in figure B-4, and 


E P ■ V ' Vt = S < 1 - R > cos 0 


(B24) 
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Reemitted flux 



Combining equations (B17) and (B24), letting e =1 and 0 = 0, integrating, and re- 

r v 

arranging yields 


"p 


= 4 


S (1 - R)r/a p 


¥f 


cos 0 
cos 0 dA 

P 


(B25) 


The function cos /3 is shown to be 


cos /3 = cos 9 cos 9 + sin 9 sin 9 


(B26) 


which can be approximated by 


cos /3 « cos 0 g 


(B27) 
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Equation (B27) can be mathematically substantiated for small values of 9 since 


lim cos j3 = cos 9 (B28) 

9—0 s 


For larger values of 9, the altitude is large and F is small; consequently, the error 
introduced by the approximation is relatively insignificant. Combining equations (B25) 
and (B27) gives 




« 4 cos 9 


s 


S(1 - R)r. 




cos a 

2 p 


(B29) 


Combining equations (B22) and (B29) gives 


S = - R)<* p Vv 2 


Tp 4 constant 


(B30a) 


and 


where 


= 2S(1 - R)a F« T 4 constant (B30b) 

4irr 1 p 2 p 

v 



(B30c) 
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The variable-temperature planet heat rate per unit area impinging on the spherical 
vehicle is 


^ = 8S(1 - R)F 2 
v 



5 / constant 


(B30d) 


An expression similar to equation (B25) has been numerically evaluated by 
Ballinger (ref. 6 ) on a digital computer. The resulting F-factors were tabulated as 
a function of altitude H and Sun-planet- vehicle angle 9 . (The table of F-factors 

was duplicated at MRI as part of a study to determine the effect of surface topology on 
planet thermal emission. ) The approximate radiation configuration factor F 2 is 

related to the tabulated factor F^H, 6^j by 


F ( H ’ 9 s) 


(B31) 


Random values of F ^H, and the approximate function Fg are plotted in fig- 

ure B-5. As expected, the percent deviation is small for large values of F, and the 



Figure B-5. - Radiation configuration factors, approximate 
and numerical solutions compared. 
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magnitude of deviation is negligible for low values of F; therefore, the approximation 
cos /3 ss cos 9 introduces insignificant errors into the derivation of F_. Conse- 

S a 

quently, the Fg function has been incorporated into the computer program in lieu of 

the slower table-reference method to obtain F ^H, 0 g )/8. 

The dark side of a variable-temperature Moon is essentially in thermal equilib- 
rium; therefore, the heat emitted can be derived from the relations that are applicable 
to a constant-temperature planet. 

The emissive power is 



(B32) 


where is the dark-side or minimum temperature of the Moon. Combining equa 
tions (B32), (B9), (BIO), and (Bll) and integrating gives 




= 8crT 


m 


4 a F.nr 2 
p 1 v 


T ^ constant (dark side of planet) (B33a) 

P 


and 


s 

“ 2 
47rr v 


= 2ctT aF. 
m p 1 


Tp / constant (dark side of planet) 


(B33b) 


where 


F 


1 



(B33c) 


The heat impinging on the sphere is 



= 8aT F- 
m 1 



4 constant (dark side of planet) 


(B33d) 
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Albedo Heat Flux for a Spinning Vehicle 


Solar radiation reflects diffusely from celestial bodies; therefore, the equations 
derived to express planetary diffuse thermal emission can be modified to be applicable 
to albedo calculations. Albedo includes solar energy bounced or scattered from the 
atmosphere above dA , as well as solar energy reflected from the planet surface 


element. 


The heat reflected from differential element dA 

P 


(fig. B-3) and absorbed 


by A v is given by the familiar relationship 


^albedo 


E cos 
P 


$ dA a ejir 1 
’p p s s v 


irL ‘ 


(B34) 


where 



is the effective emissive power of the element 


E - SR cos /3 
P 


(B35) 


Combining equations (B34) and (B35), letting e = 1, simplifying, and integrating gives 

s 


9 rr /cos 0 

W = SRr v a s Jf cos 


(B36) 


Introducing the approximation cos /3 « cos 9 , equation (B36) becomes 

s 


2 rr cos K 

Albedo ' SRr v “s C0S 9 sJJ ^ 


(B37) 


Substituting equation (B22) into equation (B37) gives 


Albedo = 8SRa sVS 


(B38a) 
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and 


q 

~ 2 

4nr 

v 


= 2SRa F_ 

S ci 


(B38b) 


where 


F 


2 


f 


1 - 


< 

\ 





>cos e s 

) 


The albedo heat rate per unit area impinging on the spherical vehicle is 


(B38c) 


^albedo 



= 8SRF 2 


(B38d) 


Planet Heat Flux for an Oriented Vehicle 
and Variable Moon Temperature 

Equations that express the amount of thermal radiation received by a flat element 
in space can be derived from equation (B7). The derivations for a flat element are 
similar to the derivations for a sphere; however, the plate is not necessarily sym- 
metrical with respect to the vehicle -planet line; consequently, the orientation of the 
plate is difficult to define. The heat absorbed by the flat-plate element (fig. B-6) from 
the variable surface temperature of the Moon is 



Ep 003 »p cos K dA p% e p A v 

irt 2 


(B39) 


52 



Vehicle element 



Figure B-6. - Geometry for determining 
heat between planet and vehicle ele- 
ment. 



Figure B-7. - Angular variables for de- 
termining radiation configuration 
factors of oriented vehicles. 


Substituting = 1 and = S(1 - R)cos j3 

(eq. (B24)) into equation (B39) and inte- 
grating yields 


% - S <1 - R > a p A v 


If 


cos /3 cos 0 cos 0 


vt 


dA 


(B40) 


An equation similar to equation (B40) was 
numerically integrated in reference 6, and 
the following equality was developed. 



cos /3 cos 0 cos 0 
’p v 



= F s( H ’W) (B41) 


where H is vehicle altitude, and the pa- 
rameters 9 , 0 , and e are illustrated in 
s c 

figure B-7. Values of Fg as a function of 

the four independent variables have been 
calculated and tabulated. The validity of 
the radiation-configuration-factor table was 
investigated and established by hand calcu- 
lations for numerous special cases and for 
two general cases. 


Combining equations (B40) and (B41) gives 


qp = S(1 - R)a p F g A v Tp 4 constant 


(B42a) 


and 


A^SU-RVs 


T 4 constant 
P 


(B42b) 
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where values of Fg are found by reference to the radiation- configuration-factor table. 
The planet heat rate per unit area impinging on the flat plate is 



= S(1 - r)f 3 


T 


P 


4 constant 


(B42c) 


Planet Heat Flux for an Oriented Vehicle 
and Constant Planet Temperature 

The emissive power of a planet of uniform temperature is independent of /3; 
Ep = S(1 - R)/4, as in equation (B15). Substituting the expression for into 

equation (B39) and integrating gives 



s <i- r >“pM 

’[cos Pp cos 0 v 

4 I 

1 nl 2 



(B43) 


Comparing equations (B41) and (B43), it is seen that 


/Tcos 0 cos 0 


-// 


cos (|3 = 0)cos J H cos 0 

vl 2 


dA 


(B44) 


Introducing the approximation cos /3 « cos 6 , which was previously shown to have 

s 

a negligible effect on accuracy, equation (B44) becomes 



Pp cos Ay 

nl 2 






Combining equations (B45) and (B43) gives 


S(1 - R)« F.A 
' P 4 v 

S r — 


T = constant 
P 


(B45) 


(B46a) 
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and 


i S » - R )“p F 4 

A v 4 


T = constant 
P 


(B46b) 


where values of are found by reference to the radiation-configuration-factor table 
and are the same as Fg, except for one of the independent variables 0 g that is 
treated as a constant zero. The impinging heat rate is 

% s(i-r)f 4 

= 7 T = constant (B46c) 


The dark side of the variable-temperature Moon is essentially in thermal equi- 
librium; therefore, the heat emitted can be derived from the equations that are appli- 
cable to a planet of uniform temperature. 

Substituting the emissive power = crT^^ of the element shown in figure B-6 

into equation (B39), integrating, and introducing the equality given in equation (B45) 
gives 


4 

= aT m a^F 4 A v T^ / constant (dark side of Moon) (B47a) 

and 

q^ 4 

^ = ° rT m “p F 4 T p 4 constant (dark side of Moon) (B47b) 

where F^ is found by reference to the radiation-configuration-factor table. The 
incident heat rate is 




4 


Tp 4 constant (dark side of> Moon) 


(B47c) 
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Albedo Heat Flux for an Oriented Vehicle 

The solar heat reflected from dA and absorbed by A (fig. B-6) is 

P v 


^albedo 


E p cos cos |T t dA p « s e s A y 
it 2 


(B48) 


Substituting the effective emissive power of the planet element (eq. (B35)), letting 

e = 1, simplifying, and integrating gives 
s 


^albedo " SR£ *s A vff 


cos ft cos 0 cos 0 


dA 


V(L 


P 


(B49) 


The desired relations are found by combining equations (B41) and (B49) to obtain 


^albedo ~ ^^ a s^3^v 


(B50a) 


and 


^albedo 


A— = SRa S F S 


(B50b) 


where is found by reference to the radiation- configuration-factor table (eq. (B41)). 
The impinging albedo is 


^albedo 


= SRF, 


(B50c) 
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APPENDIX C 


DISCUSSION OF PRACTICAL INTEGRATION STEP-SIZE 


The only feasible method to increment time in the numerical integration of the 
governing temperature equation is to increment the true anomaly and compute the cor- 
responding change in time. (Refer to the section of this report entitled "Transient 
Temperatures. ") This procedure is expressed mathematically as 


S>n + 1 * K + (C1) 


and 


At n + 1 '‘CkO-W 


where A0 is a constant. 

Since the analysis is applicable to all planet orbits, the magnitude of At n+ ^ 

depends not only on A (H, but also upon variables such as orbit eccentricity, semi- 
major axis, vehicle position in orbit, and planet being orbited. This dependence is 
illustrated by comparing times that correspond to a fixed true anomaly for three Earth 
satellites. For A$ = 1°, At is 0. 3 minute for Explorer, which was put into a low 
circular orbit; At is 4. 0 minutes for Syncom, which is in a large circular orbit; and 
At varies from about 0. 3 to 10. 0 minutes for Eccentric Geophysical Observatory 
(EGO), which is in a large, eccentric orbit. These widely varying times are one rea- 
son why it is necessary to refer to the length of the integration interval in terms of 
practicality rather than as a fixed A0. 

There are three conditions that can make the integration interval impractical. 
Two of these are controlled by the computer program. The conditions and the control 
on them are described, as follows: 

1. The magnitude of At^ + j can be so large that the one-step truncation error 
temporarily influences the accuracy of the integration. To minimize computation 
time, the integration interval should be large as d 2 T/dt 2 approaches zero; and to 
insure an accurate solution, the integration interval should be small as d' 2 T/clt 2 


57 



becomes large. This philosophy is expressed mathematically as 


At’ oc 



(C3) 


The increment At ^ is calculated from this equation. 

2. The magnitude of At n+ ^ can be so large that the equilibrium temperature is 

reached and vastly exceeded within one integration interval, thus causing the solution 
to be unstable. This condition occurs if dT/dt » 1, which could be caused by a 
vehicle skin with negligible heat capacity ^pC^h — 0^ or by an unrealistic initial tem- 
perature T . The time increment AtJ required to reach equilibrium temperature 

0 Cl 

in one interval is calculated. 

The intervals Atj', Atg’, and At n+ j are compared, and the smallest value is 

selected and used to integrate the appropriate temperature equation numerically. If 
the computer program subdivides the time increment At n+ j into two or more values 

of At’, the entire procedure is repeated until 2 At’ = At n+ j. 

3 . An impractical interval exists if A0 is so large that the assumption of con- 
stant heat fluxes within the interval is absurd. The computer program will not use 
time increments that are larger than those computed from the value of A0 in the 
input data; therefore, the program user must exercise judgment in choosing A0 so 
that it is small enough to be meaningful but large enough to allow fast computation. 
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APPENDIX D 


SUPPLEMENTARY INFORMATION FOR DATA PREPARATION 


The following supplementary information is provided to the program user to aid 
him in preparing data in accordance with appendix I. 


Summary of Coordinate Systems 

A summary of coordinate systems (described in detail in the section of this 
report entitled ” Celestial Mechanics Theory: Coordinate Systems”) is provided in 
table D-I as a ready reference in preparing data in accordance with appendix I entitled 
” Program User’s Guide for Data Preparation. ” 


Planet Data Used by the Computer Program 
Planet data stored in the computer program are listed in table D-II. 


Sample Data Preparation for Right Ascension and 
Declination of the Sun from an Ephemeris 


In preparing data, the user has an option in appendix I on the card type 05 to 

express directly the position of the Sun with respect to the planet X , Y , and Z 

1? JP 

coordinate axes in terms of a, /3, and y, as shown in figure 9; or they can be calcu- 
lated by the computer program from five input variables: ft, w, i, RA, and DEC 
(figs. 5 and 8). 

The angles RA and DEC, which are illustrated in figure 8, can be obtained for 
each day of the year from an ephemeris. Sample calculations for Earth, a planet 
(Mars), and the Moon are illustrated below for July 2, 1963, using the American 
Ephemeris and Nautical Almanac (ref. 1). 

For Earth, RA and DEC are determined from apparent right-ascension and 
apparent declination data. These data are tabulated at the top of figure D- 1 in hours, 
minutes, and seconds (24 hours equivalent to 360°). Accordingly 


RA = 6 hr 40 ^ 58 - 88 se ? x 360° « 100. 2 


and DEC « 23. 1°. 
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For a planet other than Earth, longitude and latitude data are used. The data 
for Mars, given in the middle of figure D-l, are converted as follows: 

RA = 200° 20* 4 3. 5” + 180° w 380 o 21' « 20°21’ 

DEC = -(+0 o 53’42. 5”) « -0°S4' 


For the Moon, colongitude and latitude are used. The data at the bottom of 
figure D- 1 are transformed as follows: 


RA = 90° - colongitude * 90° -34. 71° » 55°29’ 
DEC = latitude « -0. 35° 


Possible User Modifications 


For some studies, it may be desirable to modify the internally stored data. The 
following are means of affecting such modifications for typical changes. 


Possible user change 

Tolerance for temperature 
stabilization check, computer 
program now uses 0. 5° R 

Planet albedos, computer 
program now uses values in 
table E-II 


Moon cold-side temperatures 
used for variable temperature 
case, computer program now 
uses 186° R 

o 

Solar constant = 443. 0 Btu/ft -hr, 
used for 1 A. U. from the Sun and 
as a reference value for other 
distances 


Affected- card location 

Subroutine LOOP, card 
number DK032490 


Subroutine FREAD, card num- 
bers DK060870 to DK060950; the 
subscript for the variable RR 
corresponds to planet code on 
03 card in data input 

Subroutine TINPUT, card num- 
ber DK020770 


Subroutine TINPUT, card num- 
ber DK022560 
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TABLE D-I. - SUMMARY OF COORDINATE SYSTEMS 
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'The X Y and Z -axes are not applicable to spinning vehicles. 




TABLE D-II. - PLANET DATA USED BY COMPUTER PROGRAM 3- 


Planet 

code 

Planet 

Distance 
from Sun, 
ft 

Radius, 

ft 

Albedo 

GM p , 

ft 3 /sec 2 

1 

Earth 

48.89 X 10 10 

20. 9 x 10 6 

0.35 

141 x 10 14 

2 

Moon 

48.89 

5. 702 

.047 

1.73 

3 

Jupiter 

, 255.3 

229. 3 

.51 

44 900 

4 

Mars 

74.81 

10. 87 

.148 

15.20 

5 

! 

1 

Mercury 

19.03 

8. 151 

.058 

7.66 

6 

Neptune 

1475 

81.51 

.62 

2435 

7 

Saturn 

467.9 

188.7 

.50 

13 450 

8 

Uranus 

941. 3 

83.6 

.66 

2058 

9 

Venus 

35. 43 

20. 34 

.76 

114.8 


a The distance from Sun and the mass data for Moon are taken from reference 7. 
The radius, mass, and albedo data, except for the Earth and Moon albedo that are in 
accordance with Apollo specifications, are taken from reference 8. 
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SUN, 1963 27 

FOR 0“ EPHEMERIS TIME 


Date 

Apparent 
' Right Ascension 

Apparent 

Declination 

Radius Vector 

Semi- 

diameter 

Equation 
of Time 

Apparent- Mean 

July 

ha b 


r.0166915^ 

1545*40 

*5 45-39 
*5 45-3« 

- 3 32-12 » 

J4M* “ 

- 

E 


*3 06 31*8 

f .016 7036 + “ 

TT 

4 

« 


U4 Ib*i 

S 7 U*! 

« 57 37*7 
2a 52 » ' 

■•0167113 " 

.0167154 ® 


MARS, 1963 173 


HELIOCENTRIC POSITIONS FOR 0“ EPHEMERIS TIME 
MEAN EQUINOX AND ECLIPTIC OF DATE 


Date 

Julian 

Date 

Longitude 

Latitude 

Radius 

Vector 

Orbital 

Longitude 

Daily 

Motion 

Orb. 

Lat. 

July a 

243 | 
8212.5! 

0*0 
200 20 43*5 

+0 53 * 42*5 

J617 224 

0 

200*332 78 
202*18981 

: a 

0.463 189 
•465 34 * 

0 

+0*02 

6 

8216*? 



.613 476 

•OI 

10 

8220*5 

204 04 01*7 

O 47 17.3 

*609 6iz 

204*05563 

•467 579 

+ *OI 

*4 

8224.5 

205 56 29*1 

0 43 58-7 

•605 635 

205 * 930 c« 

•<69 896 

*00 



■0 v>*3 

** 

*40 

** 


— *OI 


314 MOON, 1963 

EPHEMERIS FOR PHYSICAL OBSERVATIONS 

FOR 0* UNIVERSAL TIME 


Bate 
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The Earth’s 
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Physical 
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Position Angle of 
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Lg. Lt. P.A. 
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+ 1 ” 28 1*26 
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~6 29 +0 - 42 

5:SS 
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0 4 -1 
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4 

0 4 0 

0 4 0 
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0.30 

7.91 

ft 

1 « - 

** OQ 0* 97 
6.80 

»•» ; ;; 

0 4 0 

71.32 

0.27 


°qo 7 3,7 

0 M 


Figure D-l. - Ephemeris data required for RA and DEC sample calculations. 
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APPENDIX E 


COMPUTER PROGRAM ORGANIZATION 


The FORTRAN V computer program is divided into two sections called LINK1 
and LINK2. Both sections reside in core at the same time; although, LINK2 is not 
entered unless Stromberg-Carlson 4020 (SC-4020) plots are requested. (Refer to 
appendix H. ) The links are not to be confused with a FORTRAN n technique in which 
two sections of a program share core alternately. It is important that the main pro- 
gram of LINK1 is named PILOT and the main program of LINK2 is named MAIN2. The 
MSC SC-4020 programing package, which is not included in the deck, is used by LINK2. 
On the Univac 1108 computers at NASA MSC, the SC-4020 routines are available from 
a system tape. 

Simplified flow charts of LINK1 and LINK2 are given in figures E-l and E-2. 

The hierarchy of subroutines in each link is shown in figures E-3 and E-4. The source 
deck contains comment cards that may also help the user if he should desire greater 
detail. 


LINK1 

Main routine and subroutines . - PILOT is the main routine for LINK1. The func- 
tion of PILOT is to define necessary constants and call two major subroutines, TINPUT 
and LOOP . If plots are not requested, program control passes directly from LOOP to 
PILOT. When plots are requested, control goes from LOOP to MAIN2 to PILOT. 

All input to the program is controlled by TINPUT. The output of headings, com- 
ments, and information used to explain and define each case are also controlled by 
TINPUT. Subroutine SIGBET is also called by TINPUT so that the values of 2, /3, 

0 in , and 0 Qut will be available for printing with the case headings. 

Caption pages are printed by HEAD, and FREAD is called by HEAD to read in 
permanent data. Permanent data such as radiation- configuration-factor tables, phys- 
ical constants for the Moon and eight planets, alphabetical heading information, and 
frequently used constants are read in by FREAD. Also, general comments are printed 
by FREAD, and TABLE is called by FREAD to read in material property tables. 

Tables of material properties are read by TABLE and rewritten on the output tape. 

New tables of internal heat loads are set up by QHN whenever the tables are to 
be read in. Continuation cards are read until the table contains the specified number 
of entries. The table is also written on a scratch tape to be copied later on the output 
tape. 


The angular position of the Sun relative to the orbital plane is computed by 
SIGBET. Two types of input data are accommodated: a, /3, y or S2, w, i, RA, 
and DEC. This routine also calls FIND to locate the Sun-shade points and SUNOR to 
transform element angles for the Sun-oriented cases. 
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Figure E-l. - Simplified flow chart of LINK1. 






















Figure E-2. - Simplified flow chart of LINK2. 


LINK! 



Figure E-3. - Chart of subroutine hierarchy for LINK1. 
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LINK2 



When LINK2 has completed its task, MAIN2 transfers program control to PILOT in LINK1. 

RESET and CLOCK are FORTRAN library routines. 

BINDEC, FILMAV, LABELY, LABELX, GRIDGN, PLOTI, PRINT/ RSTFRM, SCALEX, and DMPBUF 
are contained in MSC SC-4020 programing package. 

Figure E-4. - Chart of subroutine hierarchy for LINK2. 


The quadrants of 0 q , 0^, 0 Qut are adjusted by INIT so that 0^ < 0 < 0 Qut when- 
ever the vehicle is in the shadow. The determination whether the vehicle is initially in 
the Sun or in the shadow is also made by INIT. 

Time, altitude, and the angle 9 are calculated by LOCUS from 0, which rep- 

s 

resents the vehicle position. For oriented vehicles, 0 and 6 are found. The angle 

e is also found for Sim-oriented cases. The symbols 0,9, and e are arguments 

c s 

of the radiation- configuration-factor tables, and 6 is necessary to determine solar 
heat flux. If planet temperature T^ is variable, it is also found. 

The angular coordinates of the satellite elements are converted by SUNOR from 
the input values to values acceptable to the program logic for Sun-oriented satellites. 

The Sun- shade points 0- n and 0 Qut are located by FIND. If the Sun is in the 

orbital plane, BETA90 is called. Otherwise, QUART is called to determine the X 

P 

value for the coordinate and WYE is called to find the Y value for the coordinate. 

P 

Each point is examined to insure that it is not on the sunward side of the planet. The 
Sun- shade points for cases in which the Sim is in the orbital plane are computed by 
BETA 90. 
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The Y values of the Sun-shade points for which the X values were calculated 
P P 

in QUART are found by WYE. Pairs of X and Y values are then examined to in- 

P P 

sure that they satisfy the equations of both the orbit ellipse and the shadow ellipse. 

The roots of a quartic equation are solved for by QUART. The quartic arises 
when the equations for the orbit ellipse and the shadow ellipse are solved simultane- 
ously for X . 

r 

DDFERI is a double-precision quartic -factorization program from the SHARE 
library. DDVETA is a double-precision cubic -factorization program from the SHARE 
library. DDVETA is required by DDFERI. 

A heading to be printed at the top of an output page, and an output line count is 
begun by LOOP. Unless temperature calculations are not required, the maximum time 
interval is found for possible use in subroutine ERROR. The initial temperature of each 
surface element is stored for comparison with the corresponding temperatures one full 
orbit later. 

In LINC, the number of intervals of width A0 necessary to make one orbit is 
found, and in the routine KREV, the number of complete or fractional orbits that will 
be required, provided that all temperatures do not stabilize earlier, is found. 

The vehicle is then allowed to move counterclockwise around its orbit in steps 
A0. For each step, LOCUS is called to find the time and other information depending 
on 0, and heat fluxes and temperatures are determined for each surface element. Out- 
put may be written after each interval A0, or it may be deferred for two or more inter- 
vals under the control of the input parameter NPRINT. 

If a Sun-shade point is reached, output occurs automatically. If temperatures are 
being found, the integration of the differential equation over the interval is broken into 
two steps at the Sun-shade point. 

At the end of each complete orbit, temperatures are compared with corresponding 
temperatures one orbit earlier. If these agree to within 0. 5° R, the case is considered 
finished. If not, the new temperatures are stored, the tables of internal heat loads are 
reset for a new orbit, and the program loops back unless the specified number of orbits 
read in has been exceeded. When the case is finished, control passes to PILOT or to 
LINK2, depending on whether or not plots were requested. 

Lines of output, aside from comments, headings, and case- identifying informa- 
tion, are counted by TALLY. The printer carriage is restored when an output page is 
nearly filled. All output, except for comments, headings, and case -identifying infor- 
mation, are printed by TOUT. Output includes 0, time, and either heat loads or tem- 
peratures, or both. With the normal option, data are printed in columnar format. 
However, an option to allow output to be printed in block form is also provided. 
ARRQUT is an auxiliary subroutine for output of arrays of data in block form. 
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The subroutine HEAT is called by the subroutine TEMPER to obtain the net heat 
flux into each vehicle surface element and the internal heat load. The differential equa- 
tion for temperature is then integrated over a given interval A0 of the orbit. K the 
interval is too long or if internal heat loads are discontinuous within the interval, the 
interval is subdivided into two or more smaller steps. 

A theoretical approximation to the truncation error resulting from the numerical 
integration is computed by ERROR. This routine is normally suppressed. 

Impinging heat fluxes for a specified satellite surface element are found by HEAT. 
In cases for which temperature calculations are required, absorbed heat fluxes are also 
found, and QIFIND is called to determine the internal heat load. 

Values of emittance, density, or specific heat are found by INTERP for a speci- 
fied temperature by means of linear interpolation in material-property tables. 

Tables of radiation configuration factors are interpolated for by GEOFAC to find a 
value corresponding to given e, 0,0, and altitude. Values of these parameters 

outside the. range of tabulated entries are extrapolated for by the computer program. 

This feature is useful for Q greater than 90°. However, if the factor found results 

s 

in a negative heat flux, subroutine HEAT will replace it by zero. 

Determination of whether the internal heat for the surface element in question is 
varied during the interval pf integration is made by the routine QIFIND. If the element 
is varied, initial and final heat loads and the time at which switching occurs are pro- 
vided by QIFIND. 

Function subroutines . - The arccosine is found in degrees of the argument by 
ARCOSl ARCOS always extends from 0 to 180, inclusive. PHIFN is the ratio of tem- 
perature change to time increment AT/ At, as calculated from the numerical- 
integration algorithm. FOFXY is the derivative of temperature with respect to time 
for a given temperature and location in orbit. DELTA and GFN are auxiliary functions 
used by ERROR. 


LINK2 

MAIN 2 is the main routine for LINK2 and is reached whenever SC-4020 plots are 
requested. The primary functions of MAIN2 are to control LINK2 and to retrieve data 
from a scratch tape constructed by LINKl. 

Identified plots of heats compared with time, stabilized temperature compared 
with 0, or both are constructed by subroutine DRAW, The 0 array is arranged in 
ascending order for plot purposes by ASCEND. 

A linear interpolation for 0, corresponding to a chosen time, is performed by 
XINTERP. 
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Minimum and maximum values of heats and temperatures are determined by 
HILOW for plot scaling purposes. A suitable scale and numeric labels are established 
by SKALE for use on plot axes. Sentences (arrays) describing temperature plots are 
constructed by TIDENT. IBM binary-coded-decimal data are converted to Univac field 
data by FTDA. 
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APPENDIX F 


OPERATING INSTRUCTIONS 


The following operating instructions are pertinent when submitting computer 

runs. 


Tape Usage 

The computer tapes used by the program are as follows: 
Logical no. Use 

5 


6 

4 

9 

11 


Input 

Output 

Scratch 

Sjcratch 

Scratch 


tape 

tape 

tape 


Run Time on Computer 

Running time varies greatly with the number and types of cases to be run. Until 
experience with the program enables the user to make more accurate estimates, the 
following suggestions are offered as a guide for running time: 0. 5 minute per case for 
up to 10 elements and 0. 5 minute per case for each additional 20 elements. 


Job Submittal Sheet 

When submitting the computer program to be run on one of the Univac 1108 com- 
puters at NASA MSC, the operation instructions should be as shown in figure F- 1 (MSC 
form 588). 


71 




s 


YE 

S 

YE 


YES 



COMPUTER 

1108 

X 

7094 


OTHER 



INPUT TAPES 

UNIT 

REEL 

BIN NO. 

DENSITY 





















WORKING TAPES 






DUMP INSTRUCTIONS 


NO DUMP 
DUMP ON STOP 
DUMP ON LOOP 
OTHER 


PROGRAMMER'S COMMENTS: 

Note: Blocks marked " YES" must contain correct 
information when the program is submitted 
for execution. 





MSC FORM 588 (REV APR 67) PREVIOUS EDITION MAY BE USED. 


Figure F-l. - MSC form 588 













APPENDIX G 


SAMPLE CASES 


The following three sample cases are given to demonstrate to the program user 
the input and output format of the computer program. The sample eases were selected 
to show the various options available to the program user and are not necessarily 
realistic cases. 


Problem Definition of Sample Cases 

Case 501 . - The problem is to determine the incident heats, absorbed heats, and 
temperatures of a Moon-oriented vehicle orbiting the Moon. Plots of absorbed heats 
versus 0 and stabilized temperatures versus time are requested. Four surface 
elements are to be analyzed. Output data are to be printed every 10° for one orbit. 
Further specifications are as follows : 

Moon surface temperature — variable 

Sun position — given in an ephemeris for July 2, 1963 

i = 10° 


w = 130° 
(2 = 70° 


Maximum orbit altitude = 165.0 n. mi. 

Minimum orbit altitude = 8. 73 n. mi. 

0 = 0 ° 

o 


A0 = 10° 

Element 1 : 

A' = 30°, O' = 90° 

T = 530° R 
o 

h= 0.01 ft 


o 

Surface area = 1 . 0 ft 
Material — uncoated aluminum 
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Element 2 : 


O' = 180° (A’ is undefined) 

T = 375° R 
o 

h = 0. 005 ft 

Surface area = 2.0 ft^ 

All other variables same as element 1 

Element 3 : 

A’ =210°, O’ = 90° 

T = 540° R 
o 

All other variables same as element 1 
Element 4 : 

= 0° (A’ is undefined) 

T = 405° R 
o 

h = 0. 005 ft 
Node number = 44 

All other variables same as element 1 

Case 502 . - The problem is to determine the incident heats, absorbed heats, and 
temperatures of a spinning vehicle orbiting the Earth. Plots are requested. Output 
data are to be printed every 30° for 7. 25 orbits unless the temperatures stabilize 
first. Two different internal heat loads are to be compared. (This will be accom- 
plished by running a single case using two ’'elements" that refer to different internal 
heat tables. ) The following are further specifications: 

Sun positions — specified in terms of a, /3, and y; date not needed 

a =80°, /3 = 90°, y= 170° 

Maximum orbit altitude = minimum orbit altitude = 181. 0 n. mi. 

0 = 280° 
o 


A0 = 6° 
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Element 1: 


A’ =30°, ft r =90° 

T = 530° R 
o 


h = 0. 01 ft 


Q = 0 for 15 min, then 20 Btu/ft^-hr for 15 min 

O 

Cycle continuing throughout each orbit 
Material — uncoated aluminum 

2 

Surface area = 1. 0 ft 
Element 2 : 

= 180° (A* is undefined) 

T = 375° R 
o 

2 

Q = 10 Btu/ft -hr continuously 

O 

2 

Surface area = 2. 0 ft 

All other variables same as element 1 

Case 503 . - The problem is to determine the temperatures of a Sun-oriented 
vehicle orbiting the Earth. Output data are to be printed in block form every 30° for 
one-half of an orbit. Four surface elements are to be analyzed. The following are 
further specifications: 

a, i3, y, minimum orbit altitude, maximum orbit altitude — same as in case 502 

0 = 190° 
o 

A0 = 2. 5° 

Element 1 : 

A’ = 0°, = 90° 

T q = 530° R 
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h = 0. 01 ft 



Material — aluminum, painted black 

2 

Surface area = 1.0 ft 
Element 2 : 

Material — aluminum, painted white 

T = 375° 
o 

2 

Surface area = 2. 0 ft 

All other variables same as element 1 

Element 3 : 

A' = 180° 

T = 540° R 
o 

All other variables same as element 1 
Element 4 : 

A’ = 180° 

Material — aluminum, painted white 
T Q = 405° R 

Node number = 44 

All other variables same as element 1 


Listings of Input Data 

Permanent data . - The permanent data consist of 147 permanent cards that must 
always be present when running the computer program. They are described in the 
section of this report entitled ’’Data Deck Preparation . u A complete listing is given 
in table G-I. 
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Sample-case data . - A listing of the sample-case data is defined in table G-II. 
The data format is described in appendix I. Several material-properties tables were 
prepared; however, not all the tables were used in the analysis. 


Output 

Reproductions of printed and plotted output from the sample cases are presented 
in table G-in and in figures G-l and G-2. 
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TABLE G-I. - LISTING OF PERMANENT INPUT DATA 


* DATA 

95318956625473016126476532591645082301128422791472946452541442112674145907770353 
71216691616754554577355724231271076003675792544350164437372328821976110207280429 
25492395220719441625127809340619046003591102103609500837070805730440031602600209 
05l4o482o442039103350276o2l80i630l36011401580148ol360l21ol050089o072005600480041 
82437795721.16407540942^629551620097001787241689263995712485138422750150908900351 
61675896548949154192335723701358087604675016480944844022343827331959117808190511 
22072119197717661503121109120625049403760954091308460754064705320416030402520205 
044504230391 03500302025202020 1530 1290 1080 1370 1290 1190 1070 09400790 0650050 00430 037 
82437788720163955394423029371554084101677241688063825690482438132680147608610334 
61675883546948894161330323341323084704475016479644653998340927021925114807940492 
22072113196817551490119708980613048303670954091108430750064205270411030002490201 
04450422039003480301025102000151012801070137012901190107009300790064005000430037 
82437770717563615354415428871455079001377241684863355629475237312595138007780285 
61675846541548194078320922341229076703925016476144143932333126151635106607250441 
22072097194417251455115906600581045503430954090508340740063005140398028902390193 
04450^2003870344029602^60 1950 147 01240 10 301370 1290 119 01 060092 007800630 049 00 42 0036 
824377467l3863m52984l2l2ai9i43007210Q9072416804&27l5b47465436202475126606710217 
61675795534047243964308120981101065803185016471443443843322424961711095406310371 
22072074191216831407110706090536041603100954089708230725061304960381027402250161 
04450417038303390290025901690141011900990137012801160105009100770062004800410035 
82437721710262685243405827511359065200637241676062075464455635092355114505650153 
61675744526646283650295219620973054902445016466642743753311723781588084205360301 
22072052167916421359105507570491037602780954088908110710059604780363025802110169 
0445041403780 33302840233Q 1830 1360 1140 0940 1370 12701170 1040 0900 0750Q6i 004700400 034 
82437703707662345202401327011307060300397241672861605404448434282267105604880107 
61675707521245583766285818630879047001895016463142233687303922911497076104670250 
22072036185516121324101607190456034802540954088308020699058304650350024702010160 
0445041203750329027902280 1780 1320 11 10091 01370 1270 11601 0300890 075006000460 040 0034 
8243769670666221518739^626831288058400307241671761435382445833982235102404590090 
61675693519245333736282416260844044001695016461842053663301022591464073104420232 
22072030184616011311100307050446033702450954088007990695057904600346024301970157 
0445041103740328027802260 17701300109009001370 12701160103008900740060004600390033 
6004570852964723400631^822341220067901964905472744203979341727513000117007600355 
36893798357732482821233416751050075604413017297928232582226218851390093806910456 
12601259120111160982062006460464037502920551054605160470041303490281021101770146 
02570251023602140189016001310101008600720079007600710064005700480040003100270023 
6004569952634706398631^622091206068601774905471143973949338127111962113807210325 
36893778354932122778226516641027070704063017296027952545221818301365088706470423 
12601249116610860955079506220443035702770551054205100463040503400272020401710140 
0257 0250 023402 120 i860 1^7 0128 00 98 0084 00 70 00 790 0750070 00 640 056 004800 390 031 00270 023 
60045675524846613933306521431136061601344905466843343868328526021837101506060252 
36893726347231142660212415180886058003253017290727182446210017001224075405290345 
12601222114610350895078705560387030702360551053204950444038303170250018401530125 
0257 0 2460 2^6 0 20 50 1 78 0 1 49o 1 20 0 091 Q 07700 65 00790 0750 069 00620054 004600 38 00 290 025 0022 
60045642520045993659300220531042052500784905460942483757315324521675065204590148 
38893654336829792499194313250700042001983017283526132311193915031035058003810222 
12601164109109640^12060704640306023501750551051804750418035402860220015801300104 
02570241022 10 1950 16701380 1090081006900570079007400680 0600 0520 0440 03600280 0240020 
60045609513245383786291919630948043500524905435041683647302123031514069303200074 
36893582326323442339176211820521027101053017276325072176177813230847041402430123 
1^60114610560894072905^603760230017001210551050304540393032402550189013101060083 
02570235021 30 1660 1570 127 00 98 00720 060 0049 00790 0730 0660 0590050 004200340 026002200 19 
60045585511644923732286613970880037000124905450740993566292421941396057702220026 
368935303l66274522211629o99203910i66004230l7271024302077l6601191Q7l00293014500b5 
l2o011l909960a420fc68046203110 17401220080055104930439037403020232016701 1200630068 
U257o23202o80l7901490ilbu0900065o0540043o079007200650Q57o0490040o032002400210017 
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TABLE G-I. - LISTING OF PERMANENT INPUT DATA - Continued. 


60045576510444763712283618730855034700034905449140763536288921541353053401870010 
38893511315827092178158109400344012800203017269124022040161711430660024901090032 
12601108098108230646045802870154010400660551048904340367029502230159010500820062 
02570230020601770146011500870062005100410079007200650057004800400031002400200017 
35523393313728252407191613670890059501612538247523302114183414981206077905530264 
17701765168115471365120409400644048702971198122111771097098308640696050704060278 
03060332033003240304027402360200016401300084009500980100009800950086007600650048 
00260031003200320031002900250022002000170004000500050005000500050004000400030002 
35523385314628112390189713460777044301422538246323122091180714671105066304430233 
17701751166115211335112606510553040602621198120811581073095508160633043803430245 
030603260322031Q0284025502060163014001120084009300920090008400760065005500490042 
0026q0300032003000280o25o0230019o017oo15o0040005o0050005o0050004o004000300030002 
35523365311627732345184612900690038200982538243022642029173213830992056403520161 
I770l7l416o71451l251i0i507380449o31001811i981173u071007087707150532034602550169 
0306031002980275024302U501650122010000790084008700840078007000600051004000340029 
Q026GQ27 u027Q025QQ230Q20oG17Q014QU120q1Qo004QOG4oOQ40004oG040003qQQ 300020QQ20001 
35523337307627212283177612140608030500512538238521981944163112690865043802380084 
1770166315321356113708B305990316019100941198112510370917077005930406022701500088 
0306028a026502330l940l52olll0073o05600410084007800720063Q0530043o033002300l90015 
0026002400220020001700140G110008000600050004000400030003000300020002000100010000 
35523310303526692221170611380529023000172538233921321859153011540742031701350028 
17701612145812601023075504640193009200321198107809670828066304750284012300660030 
03060265023201910146010100620032Q02200140084007000600048003600240016000900070005 
00260022001600140011000800050003Q00200010004000300030002000100000000000000000000 
35523290300626312175165410830471017700022538230620831797145610700651023100680003 
17701575140411900940066103650109003200041198104309160762058503890197005500180004 
q306o24902Q90161Q1110G&5o030G009gG0400G1o0840064o0510037G0270016q00600Q2G0010000 
0026001900140 01000060Q020001000 0000000000004000300020001000000000000000000000000 
35523282299526172159163510620450015700002538229420651774142810390618019900440000 
17701561138411640909062703290079001300001198103008980738055603570165003100040000 
05o6o243o2u00l50009800s2o0iao00200000000o0840062o0480034o02000l00003000000000000 
0 026q 0 1800 14000900 050 0 02q 0 0 0000 0 0 000 0 000 000400 03000200 01 OOOdO 000 000 000 0000000 000 
13511299121410910936075205450321020500880746074007030645056604710362024101780113 
0369037903670343031 0026602150 1570 12600940 1570 1680 16601590 14701 300 110008600730059 
0 0 

0 0 

1351129512081084092707^105340310021000720746073506950635055504580347022601650098 
0 369 0375036 10 3350 30 00255020 301440 117 008 1015701 6501620 1540 141 0123 01 020 078 00650 050 
0 0 

0 0 

13511284119210630902071305030295016800350746072106750608052304220308020501480054 
OJb90363034303l3027302250 180 0135010 500500 15701580 1510140 01240 10409300820 07000 031 
0 0 

0 0 

13511269117010340868067504620265016000250746070106460572047903730260018501280048 
036903^7032002830237016401450112009200350157014801360120010100850073005400450020 
0 0 

0 0 

13511254114710060634063704200189007600150746068206180535043603240220007700300008 
0569033102960252020 10 143q 0810 0280 01 10 003q 1570 138ol2l 010 1007800520 0250 00900450 001 ' 
0 0 

0 0 

1351 12431 131 0985060906090390 01580 0490 00 1o7460668o5970508o 40402880 160 004200 070 000 
03b9o3l9o27902300l7401i3o0510007000l00000l570l300ll00087o06l0034o0ll000000000000 
0 0 

0 0 

I3bil2391l2509780fa000598o378013000240005o7460662o5890499o393o275ol45002400050001 



TABLE G-L - LISTING OF PERMANENT INPUT DATA - Concluded. 


03690314027202220 1640 1GOOO4OQ0U200GU00OOo1570127O1Q60O82qO550Q2GOOQQOOGQOQ00OOOO 
0 0 

0 0 

0144014101320120010400^500640040002600150015001600150014001300110009000600050004 
0 0 

0 0 

0 0 

0144014001310 119010300^300620038002500130015001600150014001200110008000600050003 
0 0 

0 0 

0 0 

01440138012901 150 09800^90 0560 0320 0150 00800150 01 5001400 1300110 00900 070 00400 030 002 
0 0 

0 0 

0 0 

01440 1350 12501100 09200^20 0490 0200 00700020 01500 1400 1300 1200 100 0070005000300G10000 
0 0 

0 0 

0 0 

Oi44ol330l2lOiuD0086o0 6 5oa4200i7o004QOUO()Ol50D1400l200l000050006o0040000000000QO 
0 0 

0 0 

0 0 

Ol 440 13101 jl 8 01 0 200 8200 t> 000 36001 IqQOIGOQOGGI 50013 OGll 000 900 070Q0400G200000GO GO 000 
0 0 

0 0 

Q 0 

0i440l3001l70l0UO06l00 b 800540007000i00OQ00l500l300ll0009o00600040Oul000O000O0000 
0 0 

U 0 

0 0 

PLANE SATELLI TE I PLACET TEMPERATURE IS CONSTANT £ IS VARIABLE S SUN 

oriented S SPINNING S PLANET ORIENTED T EARTH T MOON T JUPt 

TER T MARS T MERCURY T NEPTUNE T SATURN T URANUS T VENUS 
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TABLE G-IL - LISTING OF SAMPLE CASE INPUT DATA 


^MISCELLANEOUS COMPUTATIONS for spacecraft in orbit around earth and moon 
10MATERIAL PROPERTIES 


0602 

0. 

.055 

9000. 

.055 


10000. .3 


KEALl 

Q. 

.970 

10000. 

.970 




EBP! 

o. 

.950 

9G0Q . 

.95 


10000. .180 


EiftPl 

o. 

.56 

9000. 

.36 


10000. .49 


EEX1 

0« 

• 14 

9000. 

.14 


10000. .183 


EVN1 

+0 

+00+22 

+ 00 + 1 

+05+22 

+ 00 



ET31 

0. 

172.8 

10000. 

172.3 




KRAL1 

0 . 

• 22 

10000. 

.22 




KCAL1 

+0 

+00+212 

+00+56 

+03+212 

+00+66 +03+215 

+ 00 

CT31 

+86 

+05+228 

+00+106 

+04+24 

+00+1 

+05+24 

+ 00 

CT 32 

+0 

+00+1728 

+ 05+1 

+05+1723 

+03 



RT31 


10COMPUTATION OF HEATS AND TEMPERATURES FOR FOUR ELEMENTS ON THE SURFACE OF AN 
10 ALUMINUM VEHICLE ORBITING THE MOON 
10 TEST CASE 501 
01 501 4 1 


02 

0. 

ID. 

1. 





05 2 1 

1 





165. 

8.73 

04 1 

62150. 

90. 

530. 

.01 

1. 



04 4 

6210, 

0. 

405. 

.005 

1. 

44. 


04 3 

621210. 

90. 

540. 

.01 

1. 



04 2 

6210. 

180. 

375. 

.005 

2, 



05 

07 4 

10. 

130. 

70, 

55.29 

-0.35 



id case; to sTuor 

effect 

OF SWITCHING FREQUENCY OF 

INTERNAL 

HEAT LOADS 

iotest 

CASE 502 







01 502 4 1 







02 5 

260. 

6. 

7.25 





03 1 

04 1 

2 





181. 

.181, 

04 2 

5 



.01 




05 3 

ciQ :• 

90. 

170. 





06 2 6 

0. 

15. 

20. 

30. 

0. 

45. 

20. 

0660 . 

u • 

75. 

20. 

90. 

0 • 

105. 

20. 

06120. 

0. 







06 3 1 

10. 

90000. 

10. 

x 





07 2 

10 TEST CASE 505 
01 505 1 

0^12 559 x90. 2.5 .5 

05 1-1 

04 1 2110 . 

04 2 5110. 90. 

04 5 211180. 

04 4 511160. 90. 

0 7 4 


131. 161. 


.01 
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TABLE G-in. - PRINTED OUTPUT FROM SAMPLE CASES 


3 3 

2 § S i 


w a •» a 

s s 


f 333 

III Q 3 O 
3 3 O 
< 3 3 3 
ac 3 « 3 
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SUBSTRATE MATERIAL 2 IS RT31 
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TABLE G-HL- PRINTED OUTPUT FROM SAMPLE CASES - Continued 


-o * 


X O • '3 70 

O 71 O 1) h 


x • a 

< a • *h • 

_i >o a rvi a 
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TABLE G-m. - PRINTED OUTPUT FROM SAMPLE CASES - Continued 


J <0 * H ^ N| H <0 K ^ * # It 3 •«. 3 ♦ t*3<» X» 3 HI VKt3 H «l M 3 H 

< KIK13H «> -O a «* *» -* a -* «t «» 3 ^ <»K» 3 H ■»> SJ'5 H <> «l 3 H <>0|3 h ^ 3 <« <•) «l 3 h « 3 h 




3 3 3 3 a a a a a a a a 3333 a a a 31 a a a 3 a a a a a a a a a a a a 

a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a 



Ui 

a 


¥ 


a a a 
-a a a 


a a a a a a a a a a a a 0 a a a a a a a a a a a a a a a a a a a a a a a 

a a a a a 0 a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a 


ui cy ^ a *o a is ns m a 10 a « □ k a *■> ru cm a » a cn « a s si 3 a h a •* <m « 04 •* ** n 

g c a *- *1 io -« a a <y a <\j 3 si a n. <n cy *> n. <?> ® aj ®a -o a m % n n oj »• 9 m <-4 <n a 


t- a m tv si h h a « ms t h in n m *. *) a 91 < h si ^ o * » ^ ►- ® t cm s a 3 71 sa 3 » 

< m k *» a cm m o Ti rt 3 si is rivofti-T* h a h n a a *4 a a a •«* ■» a <0 a •*> 9 » a a a 9 > a a ima 3 

k « k» a <t k> .10 m is a s n is s s s s s s s s m s « »s a a a a s s s s ^ s n s t s m s ^ s m s 

UJ 

% 

ul 

I— HS1S1 -l CM a T rt SI S <1 CM a I* rt SI S I H (VI S If H SJ S If ■*» M * |4 SJ S If « SI S if N *> <t 

^ ^ I* * ^ * It 
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TABLE G-HL- PRINTED OUTPUT FROM SAMPLE CASES - Continued 


QC M W O -4 -4 O 0 9 3«9 (V t N « ♦ ♦ * O ««* «r» ^ « 9 * *> O * 1 « 3 ». <o O 

x ^ *> m a n o h i * 3 « k> «• o« o— 5* ►. ^ 3 1 * ^K»a« » cj 1 h 

a < * * * * * ■*»*»* *1 (J* * t ‘s g# '« » «I * - ♦ <•*«* o* * ♦ t '* * 

K J -4 (V <4 4> -4 <| M *» tN •» « M - * K» H 

2 2= 


o _ 

§ § 


5 ;?S5 ?53; s?s; 3332 ?sss ssss 2333 ss 33 ss 83 ssss 3333 
3 - ’ ' ' - ' ‘ ’ - ' ’ ’ s'"’* ss *3 *sr ** ii'i is'i as ’a si's ss’t 


§ §333 3333 3333 3383 3333 3333 3232 3333 3333 8533 2533 


i e« ew * «• <v Of 


1 * 3 a o 5 S § * • 3 3 2* 3 3** 3 32 * 3 32* 33 2* 33’ 


I.S8S 282- »S.S'S 2853 2255 

> *» <o *> ♦ io « « ♦ « « m t «« * *» * « 


I- H N ♦ x4 (V| v> * H «l f» < 


M ftl rft * *4 N X> !♦ « fV ’ 
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TABLE G-HI. - PRINTED OUTPUT FROM SAMPLE CASES - Continued 
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TABLE G-m. - PRINTED OUTPUT FROM SAMPLE CASES - Continued 



* 

3 5S 

£ 3 

a m 

tti a 

a 

«M A 

Ik N. 
is a 

Ik IS 
Is fl 

*8 

1» is 
X. A 

* (*• 
IS A 

1» Is 

fw «n 

<J» is 

Is A 

•A 1* 
N * 

A Ik 
CM A 

8 8 

* « 
» >s 

43 


§ 

d d 

$ 3 

d «o 

d d 

•j a 

w *j 

83 

8 3 

S3 

8 3 

8 3 

d d 

d d 

CM d 

d d 



o 

** a 

* «i 

4 CM 

4 8 








4 A| 

4 8 

*4 CM 

4 A 

4 8 

i 

t- 

1* Xs 


Ik Is 


ij» is 

71 K 

* Is 

* is 

<11 Is 

n is. 

11 Is 

cn »s 

Ik is 

(A is 

■A x- 

A* Is 


g 

X- A 

Is A 

Is A 

N a 

s. a 

Is A 

o. A 

is A 

Is A 

Is A 

Is A 

is a 

*. a 

n. a 

is A 

is A 

a 

< 

-* A 

-4 A 

-* d 

« d 


4 * d 

•4 d 

44 A 

•4 K> 

*-• a 

«4 A 

H A 

♦4 IA 

44 d 

-4 d' 

-4 d 

►» 

3 

s 

CM A 

CM A 

«VI a 

CM A 

CM A 

<M A 

CM A 

(M A 

CM t 

CM A 

*M ♦ 

cm a 

<M * 

CM A 

CM A 

CM A 

3 

I 

§ 

A *s 
4> 04 

<£> (VI 

A 9 

§i 

88 

83 

S3 

S3 

33 

S3 

S3 

3 3 

33 

88 

8 8 

S8 

8 * 

s 

3 

« 

d 4 

a » 

A d 

cm a 












d « 

«l -A 

3 5 

5 3 


s 

<o CM 
A 9 

3 8 


3 3 

§3 

33 

33 

33 

33 

3 3 

88 

3 8 

S8 

0 CM 
•A * 

5 8 

5 8 


a 

5* 3 

S» 3 

3 3 

3 3 








5* 8 

« 5 

* 5 

5 5 

s A 

Ik 11 



i~ 

5 

88 

a 8 

S3 

3 3 

33 

3 3 

33 

3 3 

33 

33 

33 

3 3 

33 

33 

3 3 

83 

* 

« 

_j 

d i> 

ii i> 

H Ik 
i» i* 

88 

3 3 

33 

33 

33 

33 

88 

33 

33 

3 3 

3 3 

8 3 

3 8 

33 

1 - 

li. 

& 

















I 

§ 

4 4 

5 5 

33 

88 

33 

3 3 

33 

33 

33 

S? 

3 8 

3 3 

3 3 

33 

K. V 

2 3 

3 

3 

3 5 

33 












33 

3 3 

A A 

5 

5 

44 .4 

-4 44 












#4 

a4 

<M (M 

3 


















5 

ttC 

< 

3 3 

O O 
o a 

3 3 

3 3 

33 

33 

33 

33 

3 3 

3 8 

.88 

§3 

83 

3 3 

33 

38 


sS 

a 

d A 

.5? 

d d 

33 

n 

35 








a 

is 

S3 

5? 

ss 


Ml 

5 

7> A 
M> s. 

A A 

O 1 » 

44 * 

53 

5 5 

IS A 
*4 A 

A 0 
9 A 

9 * 

0 x* 

8 8 

3 8 

* A 

s ♦ 

■2 3 

A A 


44 A 

« 9 

»s 3 


»- 

A 

5 

(L 

A 1 * 
A * 
A A 

33 

A A 

A A 
A A 

52 

A A 

a 

a d 

38 

A 44 
8 8 

H 

0 A 
8 8 

A A 

83 

44 A 

85 

44 A 
8 8 

8 3 

A 44 

8 3 

38 
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THE OUTPUT AT TIME- BJ.00 ENDS OPS IT NUMBER 1 

THE TEMPERATURES OP THESE NODES STABILIZED DURING THE LAST ORBIT, 
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340,0 296.17 1 554,64 443,00 106.64 99,02 97.46 23.46 21.79 142.71 

2 347.36 443.00 106.64 99.02 194.92 46.92 43.57 265.41 



TABLE G-m. - PRINTED OUTPUT FROM SAMPLE CASES - Continued 


J H* <n <7>N. O O *- <7> ►» <7* ^ « <7* <n <T» *-< *■« ®V0 r-n> -l>\0 >0 

< * <g t ^ «n n m n. « i>~ <o k. « iw *» k. <i n nj ^ t » k. <*\ « s n ^ <m * nj 

S » 'J* i -I K) H K» *1 II) ^ H IO H «> <4 «7 » # * » n <o * » «0 <m * * ni <n » « <£ 

£ *» -*io <C * <M *• (V «t ftl * Al •*■ «l * <c •* -fl ■* <*> <n ~ *0 -o « -« rr D «i rr, *, 

CP «M ~ ftl ^ <U «\l B| ^ *> -4 IO ** IO x «J -« N -«i 






92 


THE TEMPERATURES OF THESE NODES STABILIZED DURING THE LAST ORBIT, 



TABLE G-III. - PRINTED OUTPUT FROM SAMPLE CASES - Continued 
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26.2 1 562.44 445.00 .00 44.02 47.46 .00 21.74 114.25 

2 554.74 445.00 .00 44.02 144.42 .00 45.57 254.44 
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576,34 1 560.54 .00 .00 99.02 .00 .00 21.79 21.79 



TABLE G-IIL - PRINTED OUTPUT FROM SAMPLE CASES - Continued 
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TABLE G-m. - PRINTED OUTPUT FROM SAMPLE CASES - Continued 
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TABLE G-m. - PRINTED OUTPUT FROM SAMPLE CASES - Concluded 
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(a) Absorbed heat for node 1. 

Figure G-l. - Plotted output from sample case 501. 
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(b) Absorbed heat for node 2. 
Figure G-l, - Continued. 
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(c) Temperature for node 2. 
Figure G-l,- Continued. 
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(d) Absorbed heat for node 3, 
Figure G-l. - Continued. 
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(e) Absorbed heat for node 4. 
Figure G-l. - Continued. 
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(f) Temperature for nodes 3 and 4. 
Figure G-l. - Concluded. 
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(a) Absorbed heat for node 1. 

Figure G-2. - Plotted output from sample case 502. 
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(b) Absorbed heat for node 2. 
Figure G-2. - Continued. 
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(c) Temperature for nodes 1 and 2. 
Figure G-2. - Concluded. 
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APPENDIX H 


OUTPUT PLOT OPTION 


The SC-4020 data plotter can be instructed to produce two-dimensional plots and 
alphanumeric identification of the plots. 

Upon request, plots of heat versus time, stabilized temperatures versus true 
anomaly, or both, are provided. The range for the independent variable is up to and 
including one complete orbit. The heat plots have a double abscissa scale, with the 
second scale being true anomaly. Heats can be either incident or absorbed, depending 
on the input code, with absorbed heat being also a function of input. Generous data 
identification is provided. 


Description of Output 

Information is taken from a magnetic tape produced by the program and repro- 
duced visually on 35-mm film by the SC-4020. This film can be used to make enlarged 
reproductions on sensitized paper. The two types of plots obtainable (heat and stabi- 
lized temperature) are discussed separately. 

Heat plots . - Plots of incident or absorbed heat versus time are obtained, one 
element per grid, unless the card type 01 requests temperatures only. The type of 
heat (albedo, planet, solar, or total) portrayed by each curve can be determined by 
examining the plotting symbols that correspond to each output point. The following 
are the symbol conventions: 

Plot symbol Type of heat Corresponding 

printout identification 


A Albedo QALBEDO 

P Planet QPLAN 

S Solar QSOLAR 

Q Total (present only QTOTAL 

on absorbed-heat 
plots) 

The curves are formed by connecting the points with straight lines. Thus, the smooth- 
ness of a curve is a function of the calculation interval. 

Some of the parameters used by the program, plus other information, including 
vehicle-material absorptance with respect to planet- emitted radiation (PLANET ABS) 
and with respect to solar radiation (SOLAR ABS) are found in the upper portion of the 
grid. 
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The planet absorptance has two values, one for the period in which the vehicle 
is exposed to the Sun and one for the shaded portion of the orbit. When planet temper- 
ature is constant, both planet absorptance values, PLANET ABS (SUN) and PLANET 
ABS (SHADE), are constant throughout the orbit. With variable planet temperature, 
the PLANET ABS (SHADE) value is constant, but the PLANET ABS (SUN) value is not 
necessarily constant. If the emittance table used by a particular element is not con- 
stant over the entire sunlit effective-planet-temperature range, the PLANET ABS 
(SUN) value is an average. 

Each axis of each plot is numerically labeled at nine locations that do not neces- 
sarily correspond to calculation points. The abscissa has two sets of labels, one for 
elapsed time (minutes) and another for true anomaly (degrees). The true-anomaly 
values correspond to the time values immediately above. Heat units (Btu/hr or 
2 

Btu/hr-ft ) will be printed vertically to the left of the ordinate. Also present will be a 
notation of whether the heat is absorbed or incident. The element and case numbers 
are found below the true-anomaly scale. 

The remaining portion of the frame will contain as many as three horizontal lines 
of information. These lines correspond to the first three comment cards (card 
type 10) physically input in the present case data. These comment cards should be 
used to identify the plot completely and tie it to the normal output. 

Temperature plots . - When temperature calculations are requested by card 
type 01, plots of stabilized temperature versus true anomaly are obtained. If the 
temperature of an element has not been stabilized by the end of the last requested 
orbit, no temperature plot for the element will be given. The program logic deter- 
mines whether one or two element temperatures will be plotted on a single grid. Each 
calculation point during the stabilization orbit will be represented on the curve by a 
numeral one or two. The curves are identified below the grid. As with the heat plots, 
the smoothness of the curve is a function of the calculation interval. 

The vertical axis is numerically labeled with nine values. A vertical alphabetic 
label is also present. Immediately below the grid is a true-anomaly scale. 

The case number, element number, and orbit during which the temperature 
became stabilized are given for each curve on the grid. Below these items will be the 
comment-card contents, as on the regular output and heat plots. 


Stromberg-Carlson 4020 Data Plotter Requirements 

The SC-4020 data plotter is a peripheral system designed to read magnetic-tape 
output from a digital computer program and to produce graphic and alphanumeric out- 
put. As the tape is read, the desired lines and characters are displayed on a cathode- 
ray tube and exposed to sensitized paper, film, or both. At MSC, the program user 
receives a strip of developed 35-millimeter negative film that contains the SC-4020 
output. This film can then be put on a film viewer, and an enlarged, positive paper 
copy can be obtained. 
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When the computer program is run on a Univac 1108 computer at MSC, the 
routines necessary to generate SC-4020 control instructions are included in the system 
library. Program users, other than those at MSC, who wish to utilize the plot option 
must either obtain the routines from MSC or supply a compatible version of their own 
routines. 
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Material- Properties Table Count Card - Concluded 
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(6E12. 8)DP Emittance (infrared . Each table consists of alternating temperatures and emittance 

absorptance) as a (infrared absorptance). 



Optical-Properties Tables Cards - Concluded 
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. Columns 73 to 80 may be used to identify each table. 



Substrate- Properties Table Cards - Concluded 
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.All comments are printed on the printout just above the respective case data "echo” check. If a plot routine is used, the 
first three case comment cards will be printed at the bottom of the respective frames for identification. 
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SC-4020 plot-control 

code . See appendix H for SC-4020 system requirements. 



r a gp -Number and Output-Control Card - Concluded 
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compute interval 



Print-Control and Angular -Interval Card - Concluded 
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Planet, Orbit, and Vehicle Attitude Card 
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Venus 



Planet, Orbit, and Vehicle Attitude Card - Concluded 
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Element-Data Card 
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. This input is not required when temperature calculations 
are not requested. 
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. Note that if vehicle orientation or attitude is changed from 
the preceding case, it is necessary that A’ and O' be 
determined again, since the vehicle axes change. 



Element Data Card - Concluded 
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. The Sun-position card is referred to as card type 05. 
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Sun-Position Card - Continued 
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19 to 26DP Argument of perifocus . Load co, the argument of perifoeus unless column 4 con- 

w 9 or fi tains a 3, in which case,- angle j3 is entered. 



Sun-Position Card - Continued 
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co 
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. The right ascension should be given in degrees of arc. 



Sun- Position Card - Concluded 
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Internal-Heat Table Cards - Continued 
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19 to 26DP t, , time at which the 



Internal-Heat Table Cards - Concluded 
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Continuation cards for internal heat 
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1 to 80 Blank . Each case, including the first case, always ends with a 

a blank card. 



APPENDIX J 


PROGRAM LISTING 


2>JUB 


f-4uP 
ASG 
FyK 

PROGRAM 


PARKER 
A=NLWPCF 
EXEC, EXEC 
(CALLED PIlOT) 


U05258 FD241 FU07 355UF P 010 010 


4020 


EXEC0000 

CMA1N PROGRAM (CALLED PIlOT ) EXEC0010 

DIMENSION TRASH (17) ,F<10r9,42>,H7Ab(9) ,ANGTABU0) ,WH(18) »XH(9)» EXEC0020 
lYH(fo) rZH(6) ,ELL ( 9 > , RPP ( 9 ) , HR ( 9 ) * C A Y Y ( 9 ) , TIME (2) EXEC0030 

DIMENSION DT(2,2U0) ,T( 2,200) ,SINl(20U) , COSL <200 ) , SINO < 200 ) , EXEC0040 

1COSO(2UO), THICK (200) , NCOAT ( 200 ) * NSUBS ( 200 ) ,COSRS(?00) ,PHIT(200) , EXEC0050 
2GAmM(20Q ) »NDUTY(2UU) EXEC0060 

DIMENSION ESUN ( 8 ) ,EE£(8,42) f RO ( 8 , 42 ) > SP ( 8 , 42 ) , TQiNi ( 4l , 8 ) EX£CO 070 

DIMENSION BUFFER l 3) EXECQ080 

COMMON TKASH,F,HiAB, ANGTAR,WH,XH, YH , CH , FlL , HPP , RH , C A yY , PI , P I H, EXEC0090 

11 VYuP ifPIlBOf NOF InU , NOORT , I FIRST , NEwSiG EXECQ100 

COmMON KPLNET,NORltN,KTEMP,NUMRUN,NSATP,NPRlNT,KREV,NP50,REV EXEC0110 

COMMON A,HrCr A YE , BEE , RP , RN , PEE , EL , R , CAY,BARL,S, ALP2 , 6FT2 , GAM2 , EXEC0120 

1ALPHA2,BET A2,GAMMA2,COSA,COSd,COSG,SiNB,PHIMAX EXEC0130 

COMMON SIGMA, CSIGMA»SSIGMA,TSIGMA EXEC0140 

COMMON PHIZ2,DPHI2,PHIZ,0PHI r PH I , CPHI , SPHI , PH I N2 , PHOT2 , SUN EXEC0150 

COMMON T 1MEZ , T ABS , I ELAPS,ZEIT ,TIME,Ot1 TAT r XP , YP , DEE , QPSO, J1 , J2 EXEC0160 

COMMON EP1P4,EPSIG2, TM,FTM,5AS2,SRASh EXEC0170 

COMMON G , KHRCP , RHO , CP , EPSLN, 1 TK , K ITER EXEC0180 

COMMON QNtT,USAT,GiNT,GEXT»GPLAN,GALb,GSuN,GOLD»QNEW,TBREAK EXEC0190 

COMMON GAM, PHJC, ALT, ALII ,ANGS,CThE 1 ,FO»FF EXEC0200 

COMMON PHI 1 1 PHI2 , ISIG , FUOGE r 14 BUFFER »Rv, INLINE EXEC0210 

COMMON CoSLSrSlNLSrUT,T,SINLf C0SL,SIN0» COSO, THICK, NCO AT, NSUPS# EXEC0220 
lCOSKS,PHi I ,GAMM EXEC0230 

COMMON ESUN, LEE, KO,SP,TQINT,Nt JUT Y , ANINCL , ASCNOD , ASNL nG , RGTASC , EXEC0240 

IDE CLIN EXECG250 

DIMENSION AA(6) , AAl(b) ,P(6) ,Pl 16) EXEC0260 

COMMON AA, AAi,P,Pl, 10RD€R,I0KDl,iFHR0R,THF]A,DTMAX,ENl # EN, FACT , EXECQ270 
IYNhAT ,ENHATL r EMAo , UERROR , DTTcST EXEC0280 

COMMON HSUN , hALB, HPLAN , NODE EXEC0290 

DIMENSION HSUN ( 2u 0 ) , hALB (200) , HPlAn (200) , MODE < 200) EXEC0300 

COMMON KETCH EXEC0310 

COMMON HaSUN,HAAlB»HAPLN,HATOT EXECQ320 

DIMENSION HASUN { 20U ) ,HAALB(2u0) ,hAPLN(20u) , H ATOT ( 200 ) EX£C0330 

COMMON ZrtREA EXEC0340 

DIMENSION Z ARE A ( 20 U ) EXEC G 350 

COMMON IMTHRD EXECQ360 

DIMENSION iMl HKU (2U0 ) EXEC0370 

COMMON lMHl,pNAMt,PHlPLT,TIMPLT»NPL01 , LAST , DUMP ♦ L^ AX , I ONCE EXECU380 

DIMENSION PNAME ( 39 ) rPHlPLT ( 190 ) , I ImPlT (190 ) EXECU390 

COMMON TYME1 ,TYMt.2»TYME EXECU400 

COmMON/BKIK/JIJK EXEC0410 

C *** SCKA1CH l APES UTILIZED BT LInK 1 ARE.. 4,Q AND 11 EXEC0420 

C *** SCKAICH (APES UTILIZED BY LINK 2 ARE 9 ANP 11 EXECU430 

C*************************************** ************ ********************EXEC0440 
C *** OUlPUi TAPE IS 6, INPUT IS 5 EXECU450 

C* ************************************************************ **********EXEC0460 


c 


EXEC0470 

c 


EXEC0480 


IOnCE=U 

EXEC0490 

25b 

U1JK=0 

EXEC0500 


IF ( IONCE-1 ) 2,1,2 

EXEC0510 

2 

DUMP— 1 

EXEC0520 


1 ONCE” 1 

EXEC0530 


nplot=o 

EXEC0540 

1 

IF (NHLOl >4,5,4 

EXEC0550 

4 

1 YMEsTYMtl+l YM£2 

EXEC056D 


WRITE ( 6 , 9999 ) T YmE if T YME2,TYMF 

EXEC0570 



9999 FORMAT! ./// lftH CALCULATION TlME=F6*2p 13H p PLOT TIME=F6.2p 
1 2BH , TOTAL TlWt FOR THIS CASE-F6 • ? r30H , # .ALL TIMES ARE IN 
2b« • • ) 

b CONI INUE 

C *** JUMP=2 MEANS WE have RETURNED FROM LINK 2 (PLOT ROUTINES) 

00 TO (3p290)pOUMP 

C CONST AN IS FOR NUMERICAL INTEGRATION 

3 10RUER=4 

F AC T — 1 . 0/ ( 1 • U-0 . d**TORDER ) 

A A ( 1 ) =1 * U/6 • U 
AA(4)=AA(1) 

A A (2) “A A ( 1 ) *2*0 
AA(3)=AA(2) 

P(i)=0.0 
P(2) = .b 
Pt3>=CUb 
P< 4)51.0 
10KUl=i 
iFIKSTzl 

C CALL ROUTINE 10 ReAU IN DATA AND PRINT HEADING 
290 CALL T INPUT 
iEKK0R=3 

IF ( FUDGE +2669 • 0 ) 2b69p 2668 p 2669 
2666 i£KKOR=l 
2669 EN=0.0 

emag=o.o 

enhatl-o.o 

ynhat=g.u 

C CONST AN IS FOR DIFFERENTIAL EQUATION 

S AS 25.0 .b*S 
SRASH=SAS2*R 
tPlP4=0.S*(l.O-R)*S 
T4=SGRT ( SORT ( 5* ( 1 . 0-R ) /6 . 856E-09 ) ) 

C SET ALTERNATING INDICES 

ISO Jl = l 
J2=2 

1 IivlEI 1 )-U . 0 

C CALL ROUTINE TO MOvE VEHICLE ALONG ITS PRESCRIBED ORBIT AND 

C PERFORM REQUIRED CALCULATION 

CALL LOOP 

1 F l J I JK • NE • 0 ) .60 10 2b5 

GO TO 290 

END 


EXEC0580 
M I NUT EEXEC 0590 
EXEC0600 
EXEC0610 
EXEC0620 
EXECQ630 
EXEC0640 
EXEC0650 
EXEC0660 
EXEC0670 
EXEC 0680 
EXEC0690 
EXEC 0700 
EXEC 0710 
EXECQ720 
EXEC 0730 
EXEC0740 
EXEC0750 
EXEC0760 
EXEC0770 
EXEC0780 
EXEC0790 
EXE C0800 
EXEC 08 10 
EXEC 08 20 
EXE C0830 
EXEC 0840 
EXEC0850 
EXEC0860 
EXEC 0870 
EXEC0880 
EXEC0890 
EXEC0900 
EXEC0910 
EXEC0920 
EXEC0930 
EXEC 0940 
EXEC0950 
EXEC0960 
EXEC0970 
EXEC0980 
EXEC 0990 
EXEC1000 


FUR UECKIpDlCM 

SUBROUTINE HEAD 

PRINT OUT CAPTION PaGE 
WHITE ( 6 p 1 ) 

1 KOKMAT ( 1H1 /// //////// /////) 

WRIT E ( 6 f 2 ) 


DK010000 
DK010010 
DK010020 
DKO 10030 
DKO 10040 
DK010050 


FORMAT (4UX p 5IHA COMPUTER PROGRAM FOR CALCULATING EXTERNAL THERMAL /DKO 10060 
l4GXt blHRAu 1 AT ION HEAT LOADS AND TEMPERATURES OF SPACECRAFT /DK01Q070 

2*+6Xp 36H0RDIUNG ABOUT THE PLANETS OK THE MOON DKQ10080 

3//// DK010090 

4.6 4 Xf 2 HBY // 42X*47HMIDWEST RESEARCH INST I TuT 6 » KANSAS CITY p MISSOURIOKO 1Q1Q0 
S/63X * 3HANU /44Xp43FiNASA MANNED SPACECRAFT CENTER r HOUSTON p TEXAS DKOlOllO 

6////////////// 42Xrb2HD0CUMENTED IN THE NASA TECHNICAL REPORT TRDK01Q120 
7-KCS97) /44X p 43HBY H .F INCH » R . VOGT p D.SOMMERV ILLE p AND D. BLAND )DKQ10130 

wKiVE (6p6ll> DK010140 
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611 FORMAT l 1H1> 
CALL FHt'AU 
HE JOHN 
END 


DK010150 

DKOlOlfeO 

DK010170 

DK010180 


FUR OECK2fDECK2 

SUbHOUriNfc TINPUI 

DIMENSION TRASH ( 17 ) fF(10f9f42> fHTAB<9) f ANG7 Ab { 10 ) , WH ( 18 > # XH ( 9 ) f 
1YH16) fZH.(ft') fELL (9 ) f RPP ( 9 ) fRR ( 9 ) #CAYY (Q ) #7 IME(2) 

DIMENSION 0T12f2uU) *T(2f 200) rSINL ( 20.U ) f C uSL < 200 ) f S 1NO < 200 ) f 
1COS01200 ) » THICK ( 200 ) fNCOAT < 2U0 ) t NSuBS ( 200 ) fCOSRS < 200 ) 9 PHIT.i 2001 9 
2GAMM ( 200 ) 9 NOUTY ( 200 ) 

DIMENSION ESUN ( 8.) fEEE(8f42) fKO (8 , 42 ) * 5P ( 8f 42) »T0INT(4lf8) 
DIMENSION BUFFER (2) 

COMMON rKASHfFfHTAd,AN6TAB»WH,XH,YHfZH»ELL f HPP,RR r CAYY^PIfPIHr 
1 1 WOP 1 9 PI 160 r NOFINU f NQORT f IF IR5T f NElwSiG 
COMMON KPLNE i rNOKlEN* K 7 EMP f NUMRUN f NSATP f nPR INT f KRFV f NP50 f REV 
COMMON AfHfCf AYEfBEEfRPfRNfPEEfElfKfCAYfBARLfSf ALP 2FbFT2FGAM2, 

1 ALPHA? f BET A 2 9 GAMmA2 r CQSA , C0S8 9 COSO f SINB # PH I MAX 
COMMON SIGMA fCSIGMA fSSIGM A f TSIGMA 

COMMON PH 122 f OPH12 f PH 1 2 f DPHI 9 PH I 9 CPHI 9 SPH I t PHIN2 r PHOT2 r SUN 
COMMON T.IMEZ 9 TABS 9 t ELAPS r ZEI T 9 T ImE 9 DEL TAT f XP f YP f DFE 9 DPSQf Ji 9 J? 
COMMON EPTPu f EPSIG2 f TM f FTM f S AS2 f SR ASh 
COMMON GfHHRCPfRHOfCPfEPSLNfITKfKITEK 

COMMON QNETFUSATFQINTFQEXTFQPLANFQALb ( QSuNFQOLD»QNfcW,TBREAK 
C OMMON G AM f PH I C f AL f f AL 1 1 f ANGS f CT HE i f FD f FF 
COMMON PH11fPHI2fI51GfFUDGEfT4f JUDGE f BUFFER fRV,NLINE 
COMMON COSLS f S INlS fUT tit S I.NL 9 COSL f SINO f COSO 9 THICK » NCOAT 9 NSUBS r 
ICOSKSfPHI I fGaMM 

COMMON ESUN f tEE f RO f SP f T Q INT f NQUT Y f AN INCL f ASCNOD f ASNLNG f RGTASC f 
lUECLlN 

DIMENSION AA(6) fmA1(6) fP<6) fP1(6) 

COMMON AAf AA l fPfPI f I ORDER f IORD1 f I ERROR fTHFTAf DTMAXfENI fENf FACT f 
1 YNhAT f ENHATL f EM Au f DEKROR f OTTEST 
COMMON HSUNfHALBfHPLANfNODE 

DIMENSION HSUN ( 2U0 ) f HAL8 ( 200 ) r HPLAN(200) 9 NODE (200) 

COMMON KETCH 

C OMMON H ASUN f HA AlB f HAPL N , H ATO 7 

D IMENSION HASUN ( 20U ) f HAALB ( 200 ) r HAP.LN ( 200 > t HATOT ( 200 ) 

COMMON ZAREA 
DIMENSION 2 AKF A { 200 ) 

COMMON ImIHRu 
DIMENSION IM t HRU ( 200 ) 

COMMON IMHl f PNAM fc . f PH1PLT f TIMPLT f nPLO T f LAST f DUMP fLMAX f IONCE 
DIMENSION PNAME ( 39 ) f PH IPLT <190 ) f T IMPLT ( 190 ) 

EQUIVALENCE ( t RASH (lb) fCD f ( TRASH (1 6 ) f C2 > f ( TRASH ( 17 ) t C3 ) 
DIMENSION to ( 7 ) fZ(41) fNZ(41) 

EQUIVALENCE 7 ) RASh ( 14.1 fNBLANK) , (2(1) f N7 ( 1 ) ) 

DIMENSION TZ l 200 ) 

DIMENSION ELAMB ( 200 ) . 9 OMEGA ( 2 U 0 > 

DIMENSION TKALT ( 9 ) 

COMMON TYME1fTYMl2fTYME 

COMMON AGf INfUfKABGfKLf K f LP J f LL f LN f L f LSHAUf fMfNCARDf 

INEwDCfNEwGAM, NEWMAIfNHEADfNfNTRIGfPFEI fPGf PINfPOUT fR0P»SI6MA2 
common ELAMB F OMEGA fTK ALT fTZfW fAGNMfPGNM 
c *** THE PURPOSE OF THE LAST 3 STATEMENTS (COMMON AG THRU PONM ) 

C IS TO PRESERVE VALUES ESTABLISHED IN T INPUT • THIS COMMON 

C (And ASSOCIAIEO DIMENSION STATEMENTS) ALSO APPEARS IN THE 

C MAIN PROGRAM OF LINK 2 * 


DK020000 
DK020010 
OK020020 
DKQ20030 
DK020040 
DK020050 
OK 020 060 
DK020070 
DK020080 
DK020090 
DK020100 
OK 02 01 10 
OK Q20 120 
DK020130 
0K020140 
OK020150 
DK020160 
DK020170 
OK020180 
OK020190 
DKQ20200 
DK020210 
DK020220 
DK020230 
DK020240 
OK 020250 
OK020260 
DK020270 
DKQ20280 
DK020290 
OK020300 
DK020310 
DK020320 
DK020330 
UK 020340 
UKQ20350 
DK020360 
DK020370 
DK020380 
UK020390 
OK 020400 
DK020410 
OK 020420 
DK020430 
UK 020 440 
DK 02 0450 
UK020460 
OK 02 0470 
DK 020480 
OK 020490 
DK020S00 
OK020510 
DK020520 
DK020530 
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EQUIVALENCE t NAReA t ARE A ) 


DK02Q540 

nheau— i 


OK 02 0550 

JF LAG-0 


DK020560 

DO 1005 IHL=I*39 


OK 020 570 

DAI A QUO OCT /O 050.S 05050505/ 


DKQ20580 

luOb PNaME < I He ) =00 HOC 1 


OK020590 

LN=0 


OK 02 0600 

DO 39? I -1# NS ATP 


UK020610 

392 IMTHRU(I)=0 


OK 020620 

REWIND 4 


OK 020 630 

REWIND 9 


DK020640 

REWIND 11 


QK020650 

NEwGAMrt) 


OK 020660 

NEwUC-0 


OK020670 

NEwMAT-0 


DKQ20680 

IF l IF IKS 1 -1 ) 51*59*39 


OK 020 690 

C THIS SEQUENCE lb EXECUTED ONLY ONC.F 


UK020700 

39 lFi.KST-0 


UK020710 

KE \ CH=U 


OK 020720 

call HEAD 


DK 02 0730 

c set planet cold side temperatures 


DK020740 

DO 391 J = 3*8 


OK 02 0750 

391 1KALI t J)=b0,0 


0K020760 

IKALJ (2) =186.0 


OK02U770 

t KaL 1 <5>=10.U 


OK020780 

IKaLTU) =200.0 


DK020790 

TKALI (4) =20 0.0 


OK020800 

TKaU (9) =200.0 


OK0208I0 

C READ COMMENT CARDS 


OK020820 

c ncakd greater than 9 inuica(fs 

COMMENT CARD 

DK020830 

C **** TrtPE 3 was REPLACED BY TAPE 9 Tu ACCOMMODATE THE CHAINED 

PR OGRAMSOK 020840 

C **** NECESSARY FOR PlOI OP 1 ION . tSEPT. 14 , 

1964) 

UK 020 850 


C COMMENTS ARE STOKED ON TAPE 9 TO bF COPIED AFTER HEADING IS VS/RITTENOK020R60 
SI rEaU ('5 * 6U42 ) K* (e(u) *J=1*13) DK02U870 


bU42 F O.KMAT ( 1 2 * 1 3 AS ) 
if IK) 51# 51 * 5/ 0 
S^O IFIK-A) b041#b7.?#b.7.2 
5/2 WHITE (9 * 6042 ) Kf IZ(J) , J=1 #13) 

IF INHF AL)-3) lUOOOf lUUOO# 10 001 
1UUUO DO 10002 LdJ-l r 13 
iN=LN+LBJ 

lUUO 2 RNAME ( IN ) =2 ( LB J ) 

NHE AD“NHE AU+i 
LN-LN+13 
1..UUU1 CONTINUE 
GO to SI 
OU41 jFcAb=l 
GO TO 52 

C BRANCH TO bTUKE INPUT DATA 

6U4 bO TO 60S 

6Ub GO 10 ( 1 * 2 * 3 * 4 * 5 * 6 * 7 ) r NC ARD 

1 NUnKUN= ( lOO+K+L > * 1 U U+M 
NGOKT=N 

NPlO \ =w(l) 

GO TO 52 

2 NHKlNTrMAXU (Kr 1 ) 

JUDGE— 1 0 u *L+M 
PHiZ2=w< 1 > 

DPnl2=W (2 ) 

rE v=W ( 3) 


DK 020880 
DK 020890 
DK020900 
DK020910 
DK020920 
OK 020930 
DK 020940 
DK 02 0950 
DK 020960 
DK 020970 
DK020980 
DK020990 
DK021000 
DK021010 
DK021020 
DK021030 
DK021040 
-OK 021 050 
DK021.060 
OK.u210.70 
DK 02 1080 
DK021090 
OK0211 00 
DKU21110 
UK-021120 
DK021130 
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52 

934 


93b 


3 

C UO 


C 


PH1Z=PHI22*PU8G 
UPHI=DPHi2*Pil80 

READ CASE UAT A 
IF(JFLAG) 934 r 93b » 934 

KEAU ( 30 , bUO ) NCAKD,K,LfM,N, (W< J> , J=l,7> 

UFLAG=0 
GO TO 93fa 

KEaL) (5,600) NCARU,K*L,M,N, (W(J) , J=l,7) 

936 CONTINUE 

6U0 FORMAT ( 512 f 5F8.2, 2E15. 7) 

IF 1 NC AKL) ) 99 , 99 , oU4 
KPLN£T=:MAXO (Kr 1) 

NOT PERMIT VARIABLE TEMPERATURES EXCFPT FoR ThF MOON 
IF l K.PLNE f-2 )2000,20U5,2000 
2U0U M=U 
2U Ob CONTINUE 
NOKIEN=L 
KTeMP=M 

im=tkalt IK ) 

FUDGE-W ( 1 ) 

KOP=RPP(KPLNeT) 

AG- w (b)*607b.i033 
FG= W(7)*607b.l0J3 
AGinM— W ( 6 ) 

PGNM=W ( 7 ) 

IF(AG-PG) 45 U f 451 , 4b2 
aG-w ( 7 ) *6076. U33 

PG=W16) *607b.l0o3 
AGNM-W ( 7 ) 

PGNM=W(6) 

WRITE (6,453) 

FORMAT (// B9H YOU INPUT AN ORtil I rtL I ITUDF MAX. LFSS THAN 
1..1 REVERSED THFM aNU SHALL CONTINUE. //) 

GO 10 452 
A— AG + HOP 
b= a 

C— SOkT ( A*A -B*B) 

GO TO 46U 

A— .b*(PG+ AG +?.0*HOP) 

C= A -PG -HOP 
6=SUKT(A*A -C*C) 

CONTINUE 

FTM=. 171aE- 8*TM**4 
GO TO 52 
J=iOu*K+L 
1RaSH( 14)=WH(4) 

A BLANK FIELD CAUSES PROGRAM to USE PRFVlOlJb VALUE 
HEaD ( 30 r b9 1 ) K , ( L\ 1 ) , I = I t 12 ) , ARE « , 2 < 13 ) 

»-OkMAT( l2tA4,A2t2Alt4(A6t A2) rA6»2X r Ab) 
kEaU( 30,6914) XNUUE 
6914 FORMAT (bOXtFR.O) 

IF ( NARE A-NBLaNK ) 591 1 , 59 1 3 # 59i 1 

IF AKFAS ARF INPuT t THERE MUST He uNE FOR EACH FLFMENT 
*lAkEA< J)=W(5) 

KE i CH— 1 
6913 CONTINUE 

l F i N2 ( b ) — nBlaNK ) 4ul 1 402 ,401 
ELAMb(J)=W( l)*PIi«U 
NT R I G— 1 
NEwGAM=l 


460 


463 


451 


452 


46U 


591 


C *** 
5911 


4 U 1 


DK021140 
DKU21150 
DKU21160 
DKU21170 
DKU21180 
DKU21190 
DKU21200 
UKU21210 
DK021220 
UK u2 1230 
UK021240 
UK021250 
UKU21260 
DK021270 
DK021280 
UK021290 
DKU21300 
DK021310 
UK 021320 
UKU21330 
UK 02 1340 
UK021350 
UK021360 
UK 021370 
UK021380 
UK021390 
UK021400 
UK021410 
UK021420 
UK021430 
UK021440 
THE MIN.UK021450 
UK021460 
UK021470 
UKU21480 
UK021490 
UK 021500 
UKU21510 
UK021520 
UK021530 
UK 021540 
UK021550 
UKU21560 
UK 021570 
OK o2 1580 
UK021590 
UF DATA OK0216Qn 
UK u2 161 0 
UK021620 
UKU21630 
UK021640 
UK 021650 
UKQ21660 
UKO21670 
UKU21680 
UK021690 
UKU21700 
UK021710 
UK021720 
UK 021730 
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u u 


402 

403 
4032 

404 

405 
4U6 

407 

408 

409 

410 

411 

412 

413 

414 

4140 

4141 
42 

4142 
b 


C 

C 


501 

C 

C 


IF (NZ < 7 ) -NBLANK ) 403,404 ,403 
OMEGA(J)=W(2)*Pli80 


NTRlG=l 


NEwGAM=l 

IFINZX 9) -NBLANK) 
1Z( J)=W13) 

IF l NZ ( 11 ) -NBLANK 
THICK ( J ) =W (4 ) 

IF tNZ (2) -NBLANK) 

NCOAT(J)=M 

IF (NZ (3) -NBLANK) 

NSUBS(J)=N/10 

IF CNZ(4) -NBLANK) 

NDUTY<J)=M0D(N,1 


405,406 , 405 
) 407 9 408 » 407 
4U9 , 4.10 ,409 
41 1,4 12 , 41 1 


413,414,413 

0 ) 


NEwMAT=l 


WRITE ( 4 , b9 1 ) K # ( Z < I ) f I = 1 f 1 2 ) r AR E A f Z < 1 3 ) 

IF (NZ< 13) -NBLANK) 4141>42»4141 

NODE( J)=XNODE 

IF (NODE C J ) ) 4142 » 4142 *52 

NOUElJ)=J 

GO TO 52 

KABG=K-3 

LSNADE=L 

PHIN2=W (b) 

PHOT2=W< 7) 

IF K IS 3, SUN POSITION IS GIVEN BY ALPHA, BETArGAMMA 
IF NOT t IT IS GIVEN BY DATA FROM EPHFMERIS AND ORBIT DATA 
1F(KABG) bOl ,50A,bul 
ANiNCL=W(l) 

ASNLNG IS LARGE omega 
ASCNOD IS SMALL OMEGA 
ASCNOD=WV2) 

ASNLNG=W(3) 


KGJ ASC-W14) 

DEcLlN=W lb) 

GO TO S2 
b08 ALP2— W ( 1 ) 
bEV 2 =W( 2 ) 

GAM2=W<3) 

ALPHA2=AlP 2*PI 18u 
GAMMA2 =GaM2*P I 18u 
BEIA 2=BET2 *P'J 1.8.0 
COSA=COSlALPhA2) 

COSB=COS(BETA2) 

C0SG=C0SIGAMMA2) 

SINB=SIN(BETA2) 

GO TO 52 

b ] G I NT ( 4 0 , K > = 1 0 0 00 00 U 0 .0 

CAUL 0 1 IN ( K » t_ , W ( 1 ) ) 

NEwDC=l 
GO TO 52 

7 NSaTP=10O*K+L 

NSaTP=MOU ( NSATP , *01 ) 

GO T 0 52 

WRITE CASE IDENTIFICATION 

WKITt TERMINATION MARK ON SCRATCH TAPFS AND REWIND 

99 K=u 

wKiTE ( 9 ,6044 ) K , (WN( J) , 0=1,13) 

6044 FORMAT ( 12 rl3A6) 

REWIND 9 


DK021740 
DKU21750 
DK 02 1760 
DK 02 1770 
DK 02 1780 
DK021790 
DK021800 
DK021810 
DK 021 820 
DK 021830 
DK021840 
DK021850 
DK021860 
OK 02 1870 
DK 021880 
DK 02 1890 
DK021900 
DK021910 
DK021920 
DK021930 
DK021940 
DK021950 
DK021960 
DK 02 1970 
DK021980 
OK 021990 
DK022000 
UK022010 
DKU22020 
DK022030 
DK022040 
DK 022050 
DK022060 
DKU22070 
DK022080 
UK022090 
DK022100 
DK022110 
UK022120 
DK 022 130 
DK022140 
DK022150 
UK 022 160 
DK022170 
UK022180 
DK 022190 
DK022200 
OK 0222 10 
DK022220 
DK022230 
DK022240 
DK022250 
DK022260 
DK 022270 
DKU22280 
DK 022290 
OKO2230O 
DK022310 
DK022320 
OK 022330 
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640 

C 


1U1 
6 U43 
I U3 
1 U2 


642 


C 

701 


/io 

715 

7l8 

C 

720 


6431 


6432 

6433 
644 


64 b 
646 

66U 


WRITE t i 1 ).K pK t (TgInK J*l) » J=i*4l) DK022340 

REWIND li OK 022 350 

WRITE (4 * b9l ) K* (Z ( d ) * J=1 * 12 ) * AREA* Z ( 1? ) QK022360 

KEWINO 4 DK022370 

WRITE CASE HEADING DK 022380 

WRITE (6*640 )NUMRUN DK 022390 

F QKMAT (9H1CASE NO . 161 DK022400 

TRANSCRIBE COMMENTS UK022410 

DO 101 L=l*15 DK022420 

READ (9 * 6044 )K * ( Z ( J) , J=i * 13) DK022430 

IF (K ) 103*103*101 DK022440 

WRITE (6*6043) (Z( J) *J=1* 13) DK022450 

FORMAT ( 1 Al 3A& ) UK 022460 

K=3*(N0RlEN+2) DK 022470 

REWIND 9 DK 02 24 80 

L=3*KTEMP+3 DK 022490 

d=KPLN£T +KPLNET DK022500 

01=1 DK 0225 10 

WRITE ( 6 * 642 ) ZH ( 1 ) , W'H (0-1 ) *WH( J) * WH(4) *ZH<2) *ZH(3) * XH ( K-2 ) * XH < K-DKU22520 
11) *XH (K) *wH (4) *ZH(4) *ZH(5) *2H(6 ) * Yh ( L-2 ) * Yh ( L~ 1 ) * YH (L) DK022530 

FORMAT (16A6) DK022S40 

EL=ELL (KPLNET > DKU22550 

S=443 . 0* ( HARU/EL) **2 DKG22560 

CAT=CAYY (KPLNET ) DK 022570 

KF=RPP(KPLNFT ) DK 022580 

H-kR (KPLNFT ) DK 022590 

RN=SORT ( A*A*A/C A Y ) /60 . 0 UK022600 

P£e=TV/0P1*RN UKU22610 

PEe1=PEE DK 022620 

IT IS NECESSARY TO RECOMPUTE SIN r COS OF LAMBDA AND OMEGA DK 022630 

NEwGAMzO DK 022640 

MkIG=U DK 0226 50 

DO 710 J=1 * MS AT P DK 022660 

SIND < J ) =S IN (OMEGA ( o ) ) DKU22670 

COSO ( J) “COS ( OMEGA (o ) ) DK 022680 

S I NL ( J ) —SIN ( EL AMd ( J ) ) DK 022690 

COSH J)=COS(EUAMb( J) ) UK 022700 

GAjv,M ( J >=AHCOS ( SINO 10) + COSL l J) > UK 0227 10 

IF ( NORiEN) 718*720*720 DKU22720 

NTKiG=l UK022730 

FINU SIGMA UKU22740 

NOF INO-LSHADE UK022750 

CALL SIGBET (RABG*LSHAf)E) DK022760 

SIgMA2=SiGMA/PI180 DK022770 

PRINT SUN-SHADE POINTS UKU22780 

IF(PHlt\l2+900,n) 6431*6431*6432 DK022790 

PIN=0 • 0 UKU22800 

POoT-n.O UK022R10 

SUN=2 • 0 UK 022820 

GO TO 6463 DK022830 

PIN=AMOU (PHIn2+3oO . 0*360.0) DK022840 

POUT =AM0D(PH0T2+36U. 0*36 0.0 ) DK 022850 

WRITE (6*644) AGNivuPGNM* PHIZ?* DPHi? f SIGMAS* BET? » PIN, POUT UK 022860 

FORMAT (3X*26HMAX. * ORBIT AeT.(NM) * MIN . * 4.X * 4 HPHIO , 8X * 4HDPHI * 8X ,UK022870 
IbHSlGMA* 7X,4HBRTA,dX*4HPHIN*aX,5hPH0uT/lxFlU,?,9XFll,?*6Fl2.b) UKU22880 
IF(KAPG) 6b 0 * 645 * 650 UK 022890 

wRiTE (6*6461 ALP**GAM2 DK0229Q0 

FORMAT ( 7rt ALPHA=F 1 0 . b * 6H GAMM A=F 1 u . 5 ) UK 0229 10 

GO TO 99u DK022920 

wRiTE (6*6bl) ANlNCCfASCNOD* ASNLN g*RG 1 ASCfOECLIN DK022930 
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bbl 


990 

c 

no 

lu9 


111 

113 

140 

139 

ISO 

lbl 

149 


170 

ibb 


999 

998 

luuu 


4bl 


F OnMAT ( 13H InCLINA I ION=F lO .5#24H ARGUMENT OF PER IF0CUS=F10 . 5 # 21H DKQ22940 
1 LONG * OF ASC. NoUt=Fl0.5/18H RIGHT ASC£NSlON=Fl0 . 5 # 14H DECLINATDK0229&0 
2iOtM~F10 *b) OK 022960 

lF(NEWOC) 150/150 » 110 OK022970 

TRANSCRIBE n£ w INTERNAL H£AT LOAOb DK 022980 

WRITE (6 # 109 ) DK022990 

FORMAT (24H0NEW DuTY CYCLES READ IN) DKQ23000 

UO 140 L— 1 » 8 OK 0230 10 

KEAU {li)K,KL»(^U)iJ=l»41) DK023020 

IF (K) 150 r 150# ill 0KQ23030 

N=rL+KL+1 DK023040 

IF (2(41 ) ) 113# 113# 140 DK023050 

N=2 DK 023 060 

WRITE (6 # 1 39) K # (2(0) # J=1#N) DKQ23070 

FORMAT (6H0lNu£Xl2/(6H QjN=F8,4 • 4.H lrF8.2#6H GIN=F8/4#4H Ti=F8.2QK023080 

1#6H QIN=F8.4#4H l=F8.2#6H QIN=F8,4#4H T=F8.2)) OK023090 

IF (NEWMAT ) 999 # 999 # lbl DK023100 

TRANSCRIBE new ELEMENTS DK023110 

WRITE (6# 149) DK023120 

FORMAT (37H0ELEMENT COATING SUBSTRATE DUTY CYCLE5X5HLAMDA7X5H0MEGA7DK023130 


lX4HT ( 0 )6A9HThlCKNESb4X4HAREA4X8HNODE- NO . ) 

CO 170 Lbl # 200 
LL=L 

KEAU (4#b91)K# (2(0) #J=1 #12) #AREA#2( 13) 

IF IK) 999 #999 #170 

WRITE ( 6 # 1 b6 ) (Z ( J)» J=l# 12 ) # AREA# £ (13) 

F OKMAT ( 2XA4#oX A2# 8XA1 # 9XA1 #9XA6 # A2 # 4XA6#A2# 4XA6 #A2# 4XA6#A2# 
12X#A6#4X#A6) 

set initial temperatures 

UO 998 0=1# NS ATP 
I (1# J)=T2( J) 

REWIND 11 
RE W IN04 

WRITE (6 #461) REV 

FORMAT (// 33H MAXIMUM NO# OF ORbITS PEQuFSTEDb F7.3 ) 

RETURN 

END 


DK023140 
DK023150 
UK023160 
OK 0231 70 
OK 023 180 
DK023190 
DK023200 
DK023210 
DK023220 
OK 0232 30 
OK023240 
0K023250 
DK023260 
OK 023270 
DK023280 
DK023290 
0K023300 


FOR UECR3#De.CK3 

SUBROUTINE LOOP 

DIMENSION TRASH U7) #F(10#9»42) # H | AB ( 9 ) # AnG f AB ( 10 > , WH( 1 8 ) # XH ( 9 ) # 

1 YR( 6) # 2H ( 6 ) # ELL ( 9 ) # KPP (9 ) #RR (9 ) #CAYY(9) #TIME(2) 

U I MENS I ON DT 12 # 2u0 ) # T (2 # 200 ) »5INl. ( 200 ) #COSL (200 ) # SiNO (200) # 
1COSO1200) # THICK (20U) #NC0AT(2U0) # NSoBS ( 200 ) # COSKS ( 200 ) # PH IT ( 200 ) # 
2GAMM ( 200 ) # NDoTY ( 20 0 ) 

DIMENSION ESUN ( 8 ) #EEE( 8# 42) #K0<8#42) # SP ( 8 # 42 ) , TQINl (4l #8> 

LI MENS I On BUFFER (2 ) 

COMMON TKASH#F#H| Ad#ANGTAB#WH#XH#YH#^H#ELL#RPP#RR#CAYY#PI#PIH# 

1 T WOP i » P 1 180 # NOF InD # NQORT # IFIKST # NF wS 1 G 
COMMON KPLNF T # NOR IEN # K TEMP # NUMRUN # NSATP # NPH INT # KRE V # NPbO # REV . 
COMMON A , B # C # AYE # BEE # RP# RN , PEE # EL# R # C AY # BARL # S # ALP2 # BET 2# GAM2 # 

1 ALPHA2 # BET A2 # GAMmA 2 # COSA , COSB , COSG # SiNB » PH I MAX 
COMMON S 1 GM A # CS I GMA # SS I GM A # TS 1 GM a 

COMMON PHl22#DPHi2#PHI2#0PHl»PHI#CPHl,SPHl#PHIN2#PH0T2#SUN 
COMMON T1ME2#TABS# I EL APS # 2EI T # T IME # DELTA T # XP # YP # DFE # DPSO # J1 # J2 
COMMON EPTP4 # EPS1G2 # TM# FTM # SAS2 # SRaSH 
C OMMON G # RHR OP # RhO # CP # EPSLN # i T K # K I TER 

COMMON ON FT » OS AT # Q INT # QEXT # OPLAN# G aLB # QSuN # GOLD # QNEW # TBREAR 
common Gam#PhIC# ALT # ALT I # ANGS #CThET #FD#EF 


DK 030000 
DK030010 
OK030020 
OKQ3Q030 
DK030040 
DK030050 
DK 030 060 
DK030070 
DKQ30080 
DK030090 
OK030100 
DK030110 
OK 030 120 
DK030130 
DK030140 
UK030150 
DK030160 
DK030170 
DK030180 
DK030190 
DK030200 
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c r ci 


COMMON PHI 1 #PHI2 # ISIGfFU0GE#T4f JUDGE# PUFFER#RV#NLINE 
COMMON COSLS#SINLS#UTf T#SINL#COSL# SINOtCOSO# THICK f NCOAT#NSUBS# 
lCOSKS#PHiT#GAMM 

COMMON ESUN # t-EE # KO # SH » TO INT # NOUT Y # ANiNC.L # ASCNOD » ASNLNG# RGTASC # 
1DECLIN 

-DIMENSION A A 16 ) t aAI ( b ) # P < 6 ) # PI (6 ) 

COMMON AAf AAirP#Pl#IORDER#IORDlrlEHROR#THETA#DTMAX#ENl#EN#FACT# 
1 Y NH A T # ENHATL # EMAG # DERROR f DTTEST 
COMMON HSUN # HALB # HHLAN f NODE 

DIMENSION HSUN < 200 ) fHALB ( 200 ) rHPLAN<200 ) fN0UE(200) 

COMMON KETCH 

COMMON HASUNf HAAlB fHAPLN fHATOT 

DIMENSION HAbUN (200 )# HAALB (200 ) #HAFLN( 200 ) fHATOTC200) 

COMMON 2AREA 
DIMENSION ZAREA(200) 

COMMON IM1HRU 
DIMENSION IMIHRU12U0) 

COMMON I MP I f PNAMt fPHIPLT f TIMPLT # NPLOT # LAST ? JUMP f LMAX f IONCE 
DIMENSION PNAMEt 59) #PHIPLT(190 ) f I IMPLT (190) 

COMMON TYME1 #TYME2f TYME 
DIMENSION TPKEV ( 200 ) 

D I MENS ION IS l BL ( 200 ) 

COmMON/BKIK/JI JK 
DO 500 l=l#2u0 
500 iMl HRU ( I ) -0 
IMHIrNSAfP 
CALL RESET 
DO 407 12=1 f 190 
PH1PLT (12) =0 • 0 
407 I IMPLT (12) =0.0 

C RESET LINE COUNT AND PRINT PAGE HEADING 

IF (JUDGE-559) 71u#711f710 

710 I F ( NGORT-2 > 60 0 f 6 u 0 f 6 0 1 
601 NU=N00RT-2 

GO TO 712 
bOO Np=-NOOK1 
GO TO 712 

711 IF l N00RT-2 ) 603 # 6U3 f 604 

wE CALL TOUT BECAUSE IT IS NOT POSSIblE TO HAVE A BLOCK OUTPUT 
WHEN NOORT lb GRtAIER THAN 2. TOUT WILL CATCH THIS ERROR# 

PRiNT A MESSaGEf AND CALL EXIT... 

604 CALL TOUKL) 

CALL EXIT 
603 ND=-3 
712 CALL TALLY (NlINF # — 1 #ND) 

IF (NOOKT*NOOKT -5*NQORI > 730 #732# /30 
C COMPUIE MAXIMUMUM TIME INTERVAL 

700 PHil=(lB0.0-DPHl2*U,5>*Pll80*0.5 

zZ 1=SIN ( PHI 1 ) /COS ( PHI 1 ) 

Z21=ATAN ( ( A-C ) *ZZ1/B) *2.0 
1 F ( 22 1 ) Bb 1 f 8b 1 # A / 1 
861 221=221+2. 0 *P I 

8 i 1 SInZ21=S1N (2z1) 

ZZI=KN*<Z2i-C*SlNZ21/A> 

PH 1 1 =PH 1 1 +UPH 1 2 *P 1 16 0 * 0 . 5 
Z2z=SlN (PHX1 ) /COS (PHI \ > 

222=AT AN ( ( A-C ) *Z22/B ) *2.0 
IF ( Z22 ) 961 #961 f 97 1 
961 Z22-2Z2+2.0+P1 

971 SINZ21=SIN(Z22) 


DK030210 
OK030220 
DK030230 
DK030240 
OK 030 250 
DKO 30260 
DK030270 
DK030280 
0KQ30290 
0K030300 
DKO 30310 
DKO 30 320 
DK030330 
DK030340 
DK030350 
DKO 30 360 
DK030370 
DK030380 
DKO 30 390 
DKO 30400 
DKO 3 04 10 
DK030420 
DKQ30430 
DK030440 
DK030450 
DK030460 
DK 030470 
DKQ30480 
DK030490 
DK030500 
DKO 305 10 
DK03G520 
DK030530 
DK 030540 
DK030550 
DK03G560 
DK 030570 
DK030580 
DK030590 
DK030600 
DK03G610 
DK030620 
DK030630 
DK 030640 
DK030650 
DK030660 
DK030670 
DK 030680 
DK030690 
DK030700 
DK030710 
DK030720 
DKQ30730 
DK 030740 
GKQ30750 
DKO 30760 
DK030770 
DK03U780 
DK030790 
DK030800 



r. a 


UTMAX=RN*(ZZ2-C*SlNZZl/A)-ZZi 
C SFT INITIAL TEMPERATURES FOR SIEaDY STATE TESTS 

9/2 00 731 J=1#NSATP 

if i IMTHR U l J ) ) 7 3 X , 733 , 731 
733 I PKEV ( J ) — T ( 1# J) 

/31 COnTINuE 

732 L lNC=3bO • 0/DPHI2+0 • 5 
KKtV=REV+.9999 
iSuNrl 

1 ARES 9 (A5.) AMU 11 (A6) ARE USED AS TEMPORARY STORAGE FOR TEMP 
AND OTHER valuable information... 

SOU I T— 9 
01-11 
REWIND I I 
kEwIND J f 
K£tP=0 
NPtS=0 
nUu=0 
nSS=U 

PHiBAD=-9.99. V 

C *** ESI ABLISh PHl-INiFEIN) AND Phl-OuT (FtOUT) VALUES TO BF USED IN 
0 *** JESTS FOR BAD PHl 

RE iN= AMOU t PH1M2+36U .0,360.0) 

F EOU'I -AM 00 (PHOT 2+3o 0 * 0 # 360,0 ) 

301 00 850 K-l , KKE V 
NS1BL=1 
NOKBITsK 

UO 444 I jK-1 r NS A TP 
444 lStHL(lJK)=0 
KV-K 

dkkv=REV-rv 
A F i NPLOT ) 441.4 42 ,441 

441 IF (NQORT-3 >442,40 1,431 

431 IF l DRRV >432,433 #433 

432 IF l K-l >433,433,442 

C *** INITIALIZE avg. epp calculation 

433 CALL HE At ( 2 U 1 ) 

442 IF ( URRV >741,750,700 

c fractional orbit 

/ 4 1 LMrtX=3fat). U* (wRKV+1.0) /UPHI2 + U .5 
CO TO 751 

C COMPLETE ORB 1 1 

7 O 0 LMaXzLINC 

701 OO BOO L=1,LMAX 
EEL-L 

LL=L 
1 Sk IP-0 

702 FHl ABS=PH 1 Z2+F EL*DPHI 2 

C *** IF PHlAHs IS IN A V ROUBLE SPOT * SKIP OUTPUT AT THAT POINT 
F EeAMQQ ( PHI A bS , 3 o 0 • 0 ) 
if ( F t-F'E IN 1418,419,419 
419 lFVFE-FEiN -. 1)421,421 * 418 
418 IF ( F£~Ffc OUT ) 422,422 ,423 

422 1F1FE-FE0UT+. 1 >423,421 ,421 
421 I SK IP— 1 

1 F ( I SUN-2 > 423 , a 0 U ,BU 0 

423 COnIINuE 

IF t SUN-2. U) 3, 10, lu 

C FI, MU POSH ION IN ORPlT 

3 CO TO (200,200 > , 1SUN 


DK 0308 10 
DK030820 
DK030830 
DK030840 
DK03085Q 
DK 030860 
DK 030870 
DK030880 
DK030890 
, DKQ30900 
DK 030910 
DK 03 092(1 
DK030930 
DK03G940 
DK0309&0 
DK030960 
DK 030970 
DKQ30980 
QK030990 
DK 031 000 
DKQ31010 
DK031020 
DK 031030' 
DK 031040 
OK 03 10 50 

DK 031 060 
DK031070 
DK031080 
0K031090 
DK031100 
OK 031 HQ 
UK031120 
DK031130 
DK 031140 
DK 031150 
OK 031160 
DK 031 170 
DK 031180 
DKU31190 
DK031200 
DK031210 
UK 031 220 
DK 031230 
DK031240 
DK031250 
DK031260 
DKU31270 
DK031280 
DK 031290 
DK 03 13 00 
OK 031310 
DK 031320 
DK 031330 
DK031340 
DKQ31350 
DK031360 
DK 031370 
OKU 3 1380 
DK 031390 
UKQ31400 1 
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200 TEST =(PhIABS-PHXN2)*(PHIA8S-PH0I?> 

IF (TE5T )260 #260 » 26 b 
260 IF ( SUN ) 10 #10 # 210 

C SUN-SHADE POINT JUST PASSED — REDEFINE PHiAbS 

210 NSS=-1 

IF (NQO) 411 # 411 * 412 
C *** PHIN2 r SUN 

All PHIABS=PHIN2 
1SUN=2 
SUN-1 * 0 
60 10 10 

C **# PHIN2 # SHADE 

A 12 PHI ABS-PH1N2 + .1 
5UN-0 ,0 
60 TO 10 

265 l£ST=<PHiABS-PHlN2-360.0>*(PHIAH5-PHuT2-36a#0> 

IF ilEST) 260 f 260 ♦ 266 

266 IF { SUN ) 20 b # 20b # 10 

C SHADE-SUN POINT JUST PASSED — REDEFINE PHlAbS 

20 b NS5=1 

lF(ND0)4i3#413#4i4 
C *** PHOT 2 # SHADE 

413 PHI ABS -PHOT 2 -.1 
ISUN =2 

SUNFO.O 

C *** IF FEOUT-.l # AT FIRST CALCULATION PulNT OF FIRST ORbI T # IS LESS 
AFINORBI r*LL-l)427»42T,42A 

C *** THAN PH 1 22 IPHI A t TIME 2ER0) WE SHA( L ALWAYS SKIP THAT POINT 

427 xF 1 FEOUT - » 1— PHIZ2 ) 429 # 429 * 10 
429 PH AB AD-Ph I ABS 

428 IF< ABS (PHI ABS-PHaBaD)-. 000001 >43U#43U#10 

C *** PH0T2 .# SUN 

414 PHA A 8 S- PHOT 2 
SUN-1 , U 

60 TO 10 

C SUN-SHADE POINTS ALREADY CHECKED DURING THIS INTERVAL 

2 b 0 CONTINUE 
iSuN — 1 

C CONVERT PHI TO FIRST POuR OUAuRANTS 

1.0 PHA-AMOD (PHI ABS #360 « 0 ) 

IF A I SK IP ) 42b # 425 f 424 
424 IF ( ABS ( FE-PH A)-.00UU01) 426 #426 # 42.5 
426 ISM P=j 

60 TO BOU 
42b CALL LOCUS 

1 ul IF i TABS- f IMF IJD+O * b*PEE) 102 #12 #12 
1U2 1 AdSsTABS+PEt 

60 TO 101 

12 liivjE(J2)=TABS 
2 EAT-TAB.S 

IF (KEEP') 40 0 #401 #400 

401 aF(K-1 }4U3#4U3#4o2 

402 KEeP=1 

60 TO 40U 

403 IF(NPL0T )443#508#443 
443 iVP I S-NP1 S+l 

I F l ABS ( PH i ) - . 0 1 ) 404 # 40 4 # 4 0 5 

404 PH I PL T ( NP t S ) —360 * 0 
60 TO 40 to 

40b PHlPLT (NETS ) =AM0u ( PHl + 36 J .0 #360 . 0 ) 


DK 031410 
OK 031420 
OK 03 14 30 
PKu31440 
DK031450 
OKU31460 
DK 031470 
OK03I480 
OK 03 1490 
OK031500 
OK 031510 
OK 031520 
DK 031530 
DK031540 
DK031550 
DK 031560 
DK031570 
DK 031 580 
DK 031590 
DK031600 
DK 031610 
UKU31620 
DK 031 630 
DK 031640 
UKU31650 
DK031660 
DK031670 
OK 031680 
OK 031690 
DK 0317 00 
DK031710 
DK031720 
OK031730 
DK 031740 
DK03l7bO 
DK03176O 
DK031770 
OKU 31780 
OK 031790 
UK 031800 
DK 031810 
OK 031820 
DK031830 
OKU 31840 
DK 031850 
DK031860 
DK031870 
DK 031880 
OK 031890 
DK031900 
DKU31910 
DK031920 
DK031930 
DK 031940 
OKU 3 1950 
UK 031960 
DKU31970 
DK 03 1980 
DK 031990 
OKU 320 no 
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r rs 


406 1 IMPLT (NpTS)-2EIT 
60 TO 506 

400 HEAD (It) (t(J2»JV'HSUN(J.) >HALB(J) >HPLAN(J) >HASUN( J) 
1N(U) >HATOT(J) ,J=1>NSATP) 

506 00 13 J-lfNSATP 

IF INQ0RT*NQ0KT -3*NQQRT ) 503 > 507 > b03 . 

503 IF(IMTHRU< J) )l3>bQb>13 
bOb CALL TEMPER (0) 

60 TO 13 

507 CALL HEAT ( JJ 

13 CONTINUE 
1F(0RRV)21>23>23 

21 IF (K— .1)23 #23 > 22 
23 LAST-JT 

WRITE ( J T ) < T < J2 > J ) f HSUN ( J ) > HAL B { u ) >HPL AN( J) >HASUN( J) 
1N( J) >HATOT <U> > J=i nMSATP) 

22 CONTINUE 

NO- MOD (LfNPKINT > 

14 lF(ISUN-2> 15 >16 > 16 
’ b IF (NO) 1 7 > 16 >17 

0 PRINT AFTER EVERY NPRINf INCREMENTS 

16 CALL TOUT (L ) 


17 


uua=Ul 

J1-J2 

J2-JUB 


DK032010 

DK032020 

> HAALB ( J ) »H APLDK032030 
DK032040 
DK 032050 
PK032060 
DK032070 
DK032080 
DK032090 
DK032100 
OKO 32110 
DK032120 
OK032130 

DKQ32140 

rHAALBt J)fHAPLDK032150 
0KU32160 
OK 032170 
OK032180 
UK 032 190 
DK032200 
OK 032210 
UK032220 
DK032230 
DK032240 
DK032250 


430 IF (N5S ) 416>4i.5>416 

416 IF ( NOO 1417 » 417# 415 

417 NO 0—1 

IF I NSS) 2lO>2lQ>2u5 
4 lb NOO-Q 
NSS-0 

IFIISUN-2) 600 9 752 r 752 
BOO CONTINUE 


OK 032260 
0K032270 
UK032280 
DK032290 
OK032300 
UK 0323 10 
DK032320 
DKG32330 


C 


C 


IF (NPL0T)439>436>439 
439 IF ( NQORT-3 ) 438 > 437 >434 
434 IFtDRRV) 435>436>436 
43b IF ( K-»l ) 437 > 437 > 438 
436 IF (K-KREV) 438>437>437 


UK032340 
UK032350 
UK032360 
UK 032370 
0K032380 


*** CAuCULATE AV6# EPP IF IT IS TIME TO DO SO 

437 CALL HEAT (202) 

438 CONTINUE 

IF (URRV )99> 4iOf 410 

IF TEMPERATURE CYCLE HA5 ST AblLlZED > HALT COMPUTATION 
410 1 F ( NQORT *NQOKT -3WNQ0RT ) 802 t 99 , 8u2 

IMIHRU(I) = U MEANS THAT THE I EMPFRA1URE OF ELEMENT 1 HAS 
NO I STABILIZED 

602 DO 805 IX=1>NSATP 

IF ( IMTHRU (IX)) 80b > 61 0 > 805 
610 IF ( ABS (TPKEV (TX )■— 1 ( J1 > IX ) )~ 0.5) 803>803>8ub 

603 I Ml HRU ( IX )- K 
1STBL (NS | BL) -IX 
NSTBL=NSTBL+1 

60b CONTINUE 

NSTBL-NST BL—1 

WRITE (6 1 854 ) ZEI I > NOKBI T 

654 FORMAT (/ 20H THE OUTPUT AT TIm£= F8*2>19H ENDS ORBIT NUMBER 
NL I NE=iMLi NE+b 

WRITE (6 >408 ) (ISIBL(IJK) , I JK = 1 , NbTBL ) 

406 FORMAT ( 68H THE TEMPERATURES OF THESF NODES STABILIZED DURING 
1 LAST ORBIT... 1215 / (lX,26lb) ) 


OK032390 
DKU32400 
UK032410 
DK032420 
OK032430 
UK 032440 
OK 0324 50 
UK032460 
OK03247C 
UK 032480 
UK032490 
DK 032500 
PK032510 
UK 032520 
OK 032530 
UK 032540 
UK 032550 
13) DK032560 
DK 032570 
DK032580 
THFQK 032590 
DKQ32600 
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DO 808 I=1#NSATP 

DK 0326 10 


XFUMTHRU(I) ) 808,809# 808 

DK032620 

tioe 

continue 

DK032630 

c *** 

CALCULATE AVb * EPP IF ALL NODES HAVE STABILIZED 

DK 032640 


IF (NPLOT ) 440 #99 # 440 

OKU 32650 

440 

CALL HEAT 1202) 

DK 032660 


CO TO 99 

OK032670 

bu9 

CONTINUE 

DK 032680 


DO 806 IX=1#NSATP 

DK032690 


IF ( IMTHRU MX)) 806 # 807 # 806 

DK 032700 

007 

■VPKEvaX) =T <ul » IX) 

OK 032710 


IMHlrlX 

DK 032720 

606 

CONT 1NUE 

QK032730 

c 

RESET STARTING INDEX IN INTERNAL HEAT TABLES 

DKU32740 


DO 830 J-l # 8 

DK 032750 


I F l TO INT 14 1 # J ) -2 . 0 ) 830 # 830 # 828 

DKU32760 

828 

HUNT (41# J) =2.0 

DK032770 

600 

CONTINUE 

UK 032780 


KT = 11 

DK032790 


IT=JT 

DK 032800 


UT=KT 

DKU32810 


REWIND II 

DKU32820 


REWIND JT 

DK032830 

6bO 

continue 

OK 032840 

99 

continue 

DKQ32850 


CALL CLOCK (TYMEl) 

UK032860 


IF ( NPLOT ) 1 0 0 0 3 # 1 0 U 0 2 # 1 0 00 3 

DK 032870 

10u02 

1 YmE2=0.U 

DK032880 


WRITE (6#9999) TYiviEl 

DK032R90 

9999 

FORMAT (//// 33H CALCULATION TIME FOR THIS CASE = F6.?» 

DK032900 


1 1IH MINUTES... ) 

DK 0329 10 


KE 1 URN 

UK 032920 

1 00.03 

continue 

DK 032930 

C *** 

SNtAR AVb. EPP INTO LINK 2 

UK 032940 


CAlL HEAT (203) 

OK 032950 


lm*x=npts 

DK 032960 


WRITE (6 #409) 

DK 032970 

4 09 

FORMAT! /// B8H S-C 4020 PLOTS HaVE BEEN REQUESTED AnD SHALL PE 

PRQK032980 


luVIDEO HY LINK ? ) 

DK 032990 


CALL MAIN2 

DK 0330 00 


J IuK-1 

UK 0330 10 


return 

OKU 33020 


END 

UK 033030 


Fuk UECK4#0tCK4 

DK 040000 


SUBROUTINE TuUT(l) 

DK 040010 


DIMENSION trash { i7 ) #F ( 10 #9# 4.2.) # H"| Ab < 9 ) # AnGI A b(iO) , wH ( 1 8 ) # XH ( 9 ) # 

UKQ4Q020 


1 YH ( 6 ) #ZHT6) #LLL(9) #HPP(9) #RR(B) #CAYY(P) #1 I ME (2) 

DK 040 030 


lImENSIOn DT(2#2U0) #T(2#200) »SINl(20U) # CUSl ( 20 U ) # SINO ( 200 ) # 

DK 040040 


icoso ( 200 ) # Thick < 20 u ) # ncoat ( 20 0 ) # nSubs ( 20u ) # cosrS( 2 uo) #phit(2u0) 

• DK040050 


2GAMM ( 200 J #NDUTY(20U) 

DKU40060 


DIMENSION ESuN(8 ) #lEE( 8#42) #K0(8#42) #SP(8#42) # FGiNT (41 #8) 

DK040070 


DIMENSION BUFFER (2) 

DK040080 


COMMON TRASH#F#Hl AB#ANGTABfWH,XH# Yh#ZH#ELL,KPP#RR#CAYY#PI#PlH# 

DKU40090 


IT WUPi # PI 180 # NOF InU # NOOKT # I FIRST »NEwSiG 

DK040 lOO 


COMMON KPLNET # nor ILN# K TEMP #NUMRUN#NSATP#NPR INT #KREV#NP bO# REV 

DK040110 


COMMON A r H#C# AYF#BtE#PP»RN#Pt.F#EL#R#CAY fBAKL#S» ALP2 »bET2#GAM2# 

UK040120 


lALPHM2#BETA2#GAMjviA2#C0SA f C0SBrC0SG»SlNB#PHIMAX 

UK040130 


COMMON SiGMA #CSIGMA#SSIGMA#TSIGMA 

DK040140 
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COMMON PHI ZZ # DPH12 » PH I Z # DPH1 # XHI # CPHi , SPHI # PH IN2# PHOTS? # SUN 
COMMON TlMEZ#TARs# TELAPS #ZE IT f TIME # DELTAT » XP» YP #DE£#DPSQ# JltJZ 
COMMON EPTP4fFPSiG2#TM#FTM#SAS2#SRASH 
COMMON G f KHRCP # RHO # CP # EPSLN # l TK # KITEK 

COMMON QNfcT # GS AT # Q1N7 # QEXT # GPL AN * QALb , QSUN # GOLD # GNEW # TBREAK 
COMMON GAMfPHlC f AL1 # ALT I # ANGS#CTHET »FP#FF 
COMMON PHI1 ,rHI 2# IS1G# FUDGE# TPL# JUDGE, BUFFER# RV#NLINE 
COMMON COSLS # S INLS # UT # T # S INL , COSL , SINO , COSO# THICK , NCOAT # NSU8S » 
lCOsKS # PH i 1 # GAMM 

COMMON ESUN # LEE # HO # SP # 7 G I NT # NDUT Y # AN1NCL , A5CNOD # ASNLNG# RGTASC # 
XDECLIN 

DlMENSiOiM AA46) # A Ai ( 6 ) #P(6) #Pl (6) 

COMMON AA # AA1 rP#Pl # 10RDER » IOHD1 # IEKROP # THETA, DTMAX # ENl # EN# FACT # 
1YNHAT ,ENHATL,EMAu#UERROR,DTTEST 
COMMON HSUN , HALB , HPLAN , NODE 

DIMENSION HSUN(2U0) , H ALB ( 2007 # HPlAN ( 20 0 ) ,N0DE(200) 
common ketch 

COMMON HASUN , HA AlH , HAPLN , HAT 07 

DIMENSION HASUN(200) ,HAALBt 200) # HAPLN (20U) #HAT0T( 200) 

COMMON ZAREA 
DIMENSION ZAKEA(200) 

PHi=XHI 

if (ph i) 3a# 39 #39 

3b PH l —P HI +360*0 

39 if ( JUDGE -3 59 ) 4 0 , 1 0 U # 4 0 
100 IF IN0ORT-2) lu,10, 100 0 
1000 WRITE (b,l001)NQORi 

luOl FORMAT UH1 #//./// /////3.5H YOU WANT A BLOCK OUTPUT FOR NG0RT^I3 // 

1 6 l H THIS IS NOT POSSIBLE AT THE PRESENT TIME,.. I SHALL CALL EXIT) 
CAlL EX I I 
4U K 1— 1 

IF I NoORl -2 ) 512 # 512 # 513 

513 nAKG=NOOr1 -2 
GO 70 514 

512 NAKG = -NOORI 

514 CALL TALLY ( NL INF # 2 # N ARG f 
IF t NOORT -1 ) 4i # 61 # 510 

510 IF (NOOK 7 -2) 51 #51 #511 

511 iF(NG0RT-3)8i,81#9l 

: HE A I ONLY 

41 wRlTE ( 6 # 4 1 1 ) PHI # ZE IT# NODE (11 #HSuN(l> , HALB Cl.) #HPLAN<1> 
iF ( NSATP-2 ) 99# 42 #42 

42 uo 43 J =2 # NS A TP 

CALL TALLY (NLINF#1#-NQ0RT) 

43 WRITE (6 # 412 INODE (J ) #HSUN ( J ) # HALtj( J) # HPLAN (J ) 

4 A 1 FORMAT l/Fb.l #F».2#1XI3#4F10.2> 

412 F ORMAT < 15X13# 4F1U . 2 ) 

GO TO 99 

51 WRITE (6# 411.) PHI # ZEi T # NODE Cl) # T < j 2 » 1 > »HStjN (1 ># HALR M ) # HPLAN < 1 ) 

IF ( NS A TP-2 ) 99 # 52 #52 

52 UO 53 J=2»NSaTP 

CAlL TALLY(NLINE# 1#-NG0RT) 

53 WRITE ( 6 #412 ) NODE ( J ) »T( J2 » J) #HSUN ( J) # HALB ( J ) # HPLAN (J) 

GO 70 99 

61 WRITE ( 6 # 41 1 ; PHI # ZE IT# NODE (11 #T(J2#1 ) 
lF i NSATP-2 )99 # 62 # 62 

62 DO 63 J=2#NSATP 

C All 7 ALLY ( NL I NF # 1 # -NOORT ) 

63 WRITE ( 6 # 4 12.) NODE ( J ) # T ( J2 # J ) 

GO TO 99 
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INCIDENT AND ABSORBED HEATS 

OK040750 

81 

WRITE ( 6rBl 0 ) PHI »Z£1T* NODE <1 ) #H$UN<1) ,HA|.B<1} ,HPLAN<1> 

# HASUN(1)#HDK040760 

lAALB(l) rHAPLN(l) #HATOT( 1) 

DKQ40770 

81U 

FORMAT ( V.F6.1# F8..2# 1X13# 3F1Q ,2# UX# 4Fl 0 .2) 

DK040780 


IF ( NSATP—2 ) 99 #82# 82 

DK040790 

82 

DO 83 J=2rNSATP 

DK040800 


CALL TALLY(NLINErlrl) 

DK040810 

83 

WRITE (6 # 630 ) NODE ( U ) # HSUN ( J) » HALB ( J ) # HPL AN ( J ) #HASlJN(J) 

#HAALB< J) #HADK040820 


1PLN(J) rHATOT(J) 

DK040830 

830 

FORMAT (15X13# 3F1U . 2 » 11X #4F10 • 2 > 

0X040840 


60 TO 99 

DK040850 


TEMPERATURE# INCIDENT HEAT# AMD ABSORBED HEAT 

DKQ4Q860 

91 

WRITE (6#9lO)PHI#ZtIT#NOOE(l> ,T(J2#1)#HSUN(1I ,HALB(1) # 

HPLAN(l) #HADK040870 


ISDN ( 1 ) # HA ALB ( 1 ) # HAPLN ( 1 ) # HATOT ( 1 ) 

OKQ4Q880 

91U 

FORMAT </F6.i#F8.2#lXl3#4F10.2#llX,4F10.2) 

DK040890 


IF (NSATP— 2) 99# 92 r 92 

DK 04 0900 

92 

DO 93 J=2#NSaTP 

DK 04 09 10 


CALL TALLY <NLINEri»2> 

DK040920 

93 

WRITE (6# 930 ) NODE ( J ) # T ( J2 # J > # HSUN ( J ) # HALB ( J > # HPL AN < J) # 

HASUN(J) #HADK040930 


1 ALB { J ) f HAPLN ( J ) # HATOT ( J) 

DKQE0940 

930 

FORMAT (15Xl3#4FI0.2#llX,4F10 t 2) 

DK040950 


60 TO 99 

DK 040960 

10 

L8s ( NSATP+9 ) / 1 0 

DK 04 0970 


CALL TALLY <NLINE#L8+2r-3) 

DK040980 


IF(NQORT-l) 11 # 21 # 21 

OK 040990 


ONLY HEAT FLUXES ARE REQUIRED 

OK 041 000 

11 

WRITE (6 # 702 ) PHI r ZEIT 

DK041010 

12 

CALL ARROUT (HSUN ( 1 ) #L8#NSATP) 

DK 04 1020 


60 TO 31 

DK Q41030 


TEMPERATURES REQUIRED 

OK 04 1040 

21 

WRITE ( 6 # 701 ) PHI t ZEIT 

DK041050 


DO 23 J=1»NSATP#10 

DK041060 


NF=MIN0UP*J#NSA|P) 

UK041070 

23 

WRITE (6.# 70:5) J# ( 1 ( J2#N) #N=J#NF) 

DK041080 

rub 

FORMAT ( 14X14 r2X10Fl0« 2) 

DK041090 


IFVNQORT-I) 99 #99 #25 

DK0411a0 


HEAT FLUXES AS WELL AS TEMPERATURES NEEDED 

OK 041 1 10 

2b 

CALL TALLY (NL INE #L8+2 * —3 ) 

DK041120 


WRITE (6# 706) 

DK 041130 


60 TO 12 

DKQ41140 

31 

CALL TALLY (NLINE# L6+2#-3 ) 

DK041150 

32 

WRITE ( 6 # 7 0 3 ) 

DK041160 


CALL ARROUT (HALB (l) »L8 r NS ATP ) 

DK 04 1170 


CALL TALLY ( NLINE # Ld+2 # “3 ) 

DK 041 180 

34 

WRITE (6 # 704 ) 

DK041190 


CALL ARROUT ( HPL AN ( 1 > # L8# NS ATP) 

DK041200 

7U1 

FORMAT ( /F6. 1 #F9 . 2 # 14H TEMPER ATURES ) 

OK 04 12 10 

7U2 

FORMAT (/F6.1#F9. 2 #1UH Q SOLAR ) 

DK041220 

7u3 

FORMAT (/17X8HQ AuBEDO) 

UK 041230 

704 

FORMAT (/17X8HQ PLANET) 

OK041240 

706 

FORMAT (/17X8HG SOLAR ) 

DK041250 

99 

1 RE 1 URN 

DK041260 


ENO 

DK041270 


for decks » decks 

DK 050000 


SUBROUTINE HEAT(J) 

DKU50010 


DIMENSION TRASH (17) #F( 10 # 9#42 ) #H I AB (9 ) t ANGT AB ( 10 ) , WH ( 1 8 ) #XH<9) # DK050020 


1 YH (6 ) #ZH(6) FELL ( 9 ) # RPP ( 9 ) #RR(Q) »CAYY<o) , VIME(2) 

OKU 50 030 


DIMENSION DT(2#2u0) #T(2#200) #SINL(200) #COSL(200) #SINO(200) # DKQ50040 
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c r 


1COSO(2UO) t THICK ( 20U ) rNCOAT (200 ) rNS.UBS < 200 > fCOSRS { 200 ) fPHIT (200 I f 
2GAMM ( S>00 ) f NDUTY ( *00 ) 

DIMENSION ESuN ( A ) fEEE ( 8 t 42 > r«0 (8 f 42 ) , SP ( 8 r 42 ) f TGINT ( 41 # B ) 

COMMON TRASH,FfHT ABfANGTABfWHfXH, YHfZHfELLfBPPfRRfCAYYfPIfPIHf 
1 1 WOP I f PI 1B0 f NOFIND f NQORT fIFIRST r NEwSiG 
COMMON KPLNE I f NOKltNf K TEMP , NUMRUN f NSATPfNPRINT f KRP V , NP50 f REV 
COMMON A , H f C f AYE , BEE f RP f RN f PEE f El f R fCAYfBARL f S f ALP2 f BET 2 f GAM2 f 
1ALPHA2fBETA2fGAMMA2fCOSA,COSBfCOSGfS1NBfPHIMAX 
COMMON SIGMAfCSIGMAfSSIGMAfTSIGMA 

COMMON PHIZ2 f DPHi 2 f PHI 2 f DPHI f PHI f CPHi f SPH l f PH IN2f PHOT2 » SUN 
COMMON TIMEZf TABS * TELAPS f ZEI T »T IMF f O fct TAT fXPf YPfOFEfOPSQf JIf J2 
COMMON EP 1 P4 f EPS1G2 f TM f FTM , S AS2 > SR ASH 
COMMON O f RHRCP f RhO f CP f EPSLN f UK f KITEK 

COMMON QNET fOSAT fQINTf QEXT f QPLANf QALB, QSuN f GOLD f QNEW f TBREAK 
COMMON GAM f Ph I C f AL f f AL T I f AN6S f CTHE T f F D f FF 

COMMON Pm U f PHI 2 f ISIG f FUDGE f T4 f JUDGE fTPLfBuFEERfRVfNLINE 
COMMON COSLSfSINLSfDTfTfSINLfCOSLfSINOfCOSOfTHICKfNCOATfNSUBSf 

ICOSRSfPHIT fGaMM 

common ESUN F LEE F ho F SP F TQ I NT f NDUTY r ANINCL f ASCNOD f ASNLNGf RGTASC f 
1DECCIN 

DIMENSION A A ( 6 ) f A A 1 (6 ) fP(6) fPI (6) 

COMMON AA f A A 1 f Pf PI f I ORDER f IORD1 f iEkROR # THETA r DTMAX f ENl r ENf FACT t 
1 YNh AT f ENHATL r EM AG f DERR OR f DTTEST 


COMMON HSUN f MALB f HPLAN f node 

DIMENSION HSUN (200) fH ALB (200) fHPlAn ( 200 ) f NODE (200) 
common ketch 

COMMON HASUNfHAAlBfHAPLNfHATOT 

DIMENSION HASUN(200) fHAALB(200)#HAPLN(20U) fHAT0T(2U0) 

COMMON ZAREA 
DIMENSION Z ARE A ( 200 ) 

COMMON ImTHRU 
DIMENSION I MT HKU ( 2u0 ) 

DIMENSION DARK ( 200 ) * BRITE (200 ) fNBR IT F ( 200 ) 

IF ( J-2U 1 ) 1 00 r J 0 1 f lu2 

c *** initialise calculation of avg. epp (planet absorptivity) to be 

C OUTPUT ON SC— 4020 PLOTS 

101 DO 103 1=1 fNSATP 

IF ( lMTHRU ( I ) ) 103 f 11)8 f 103 
108 DARK ( T ) =0 • 0 
bKlTE ( I ) =0 • 0 
NBRITF ( I ) =0 

103 continue 
GO TO 990 

102 IF ( J— 202 M09f1G9f 110 

c *** calculate avg. epp for sun side 

109 DO 10^ 1=1 FNSATP 

104 oRlTE ( I ) =BR IT E ( I) /FLOAT (NRRITE ( I ) ) 

GO TO 999 

*** SAVE DARMI) AND BKITEH) IN TWO ARRAYS to.HlCh ARE IN COMMON BUT 
NO LONGER UStD In THIS CASE 
HU DO ill 1=1 fNSATP 
hSuN(I) =UARMI) 
il l h ALB ( I ) =BK IT E ( I ) 

GO TO 999 

100 continue 


OSAT=J 

c determine VALUES NEEDED Fop j TH ELEMENT 

G A N — G A M M ( JS A I ) 

PH1C=PHIT ( JSAT) 

JC=NC0AT ( JSA1 ) 


DK 050 050 
DK 050 060 
DK050070 
DK050080 
DK050090 
DK050100 
DK050110 
DK 050 120 
DK05Q130 
DK050140 
DK050150 
DK050160 
DK050170 
DK 050 180 
DK050190 
DK050200 
DK050210 
DK050220 
DK050230 
DK050240 
UK050250 
DK 050260 
DK050270 
DK 050280 

DKQ50290 
DK050300 
DK050310 
DK050320 
DKG50330 
DK 050340 
DK 05 0350 
DKG50360 
DKQ50370 
DK 050380 
UK 050 390 
DK050400 
DK 0504 10 
DK050420 
DK050430 
DK050440 
DK050450 
DK 050460 
DK 050470 
DK050480 
DK050490 
DK050500 
UK050510 
OK 050520 
DKQ50530 
UK050540 
DK 050550 
OK 050560 
DK050570 
OK050580 
DK 050590 
DK 050600 
DK050610 
DK050620 
OKO5063O 
DK050640 
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JS-NSUBS ( JS At ) 


DK050650 


AS=ESUN(JC) 


DK050660 


TEMT=T(Jlf JSAT) 


DK 050670 


CALL INTERP (LEE ( 1 > 1 ) ► T£MT * JC rEPSLN ) 


DK 050680 


CALL INTERP (HO ( If 1 ) # TEM'T # JS »KHO ) 


DK050690 


CALL INTEKP (SP ( 1 » 1 i rTEMT # JSrCP) 


OKU 50 700 


C ALL INTEKP ( LEE (1 r 1 ) # TPt # JC # EPP ) 


DK 0507 10 


tPSIG2=-3.428E-0y*£PSLN 


DK050720 


KHHCP=1 . 0/ 1 RhO*CP* ( HICK ( JSAT ) *60 , 0 ) 


DK050730 


KOUE= ( 3 . O-SUN ) *3 . 0 *SUN 


DK050740 


K0UE=K00E+3+KTEMP+N0RIEN+N0RIFN 


DK 050750 

6 

GO TO ( 3b # 36 » 33 # 34 #35# 36 # 41 # 42 # 33 * 40 

#41 #42) rKODF 

DK050760 

C 

SPINNING f CONST ANT PLANET TEMPERATURE 

DK 050 770 

33 

fPLANr0.25*FO 


DK 050780 


IF ( SUN ) 331 1 SO # 331 


DK050790 

331 

FSuN=0,5 


DK050800 


F AlB-0 • 0 


DK050810 


IF(CTHET) 60 #60 #332 


DK 05 0820 

332 

ealb=fo*cthe r 


DK050830 


GO TO 60 


DK050840 

C 

SPINNING t shade ^VARIABLE PLAnFT 

T FMPtRATURL 

UK 050 850 

34 

fplan-f t M*FD/ ( S* ( 1 . .0-8 ) ) 


DKU50860 


GO TO SO 


DK 050870 

C 

OK ILNTEO # SHADE r CONST ANT PLANE T 

temperature 

DK 050 8 80 

33 

ANbS-0.0 


DK 050890 


CALL GEOFAC(FF) 


DK050900 


PPLAN=O.S*FF 


DK050910 


GO TO 50 


DK050920 

C 

OKIENTEu, SHADtf VARIABLE PLAnET 

ifmperature 

DK050930 

3o 

ANgS=0.0 


DK 050940 


call GEOPAC(FF) 


UK050950 


FPLANr 2 * 0 *FTM*FF/ (S*( 1*U-.R) ) 


DK050960 


GO TO SO 


DK 05 0970 

C 

SPINNING# SUN 9 VARIABLE PLANET 

ifmperatupe 

DK 050980 

4U 

FPLAN=FO*CTHLT 


DK050990 


KUb=FTM*FD/(S*( 1.0-R) ) 


DKU51000 


IF(FPLAN-KUB) 40 1 # 331 » 331 


OK051010 

4 U 1 

h PLAN-RUb 


DK051020 


GO TO 331 


DK 051030 

C 

ORIENTED# SuN # CONST ANT PLANET 

IFMPeRATUPE 

OK 051040 

4 i 

STANG=ANgS 


DKU510S0 


angS=o.u 


0K051060 


CALL GEOFAC(FF) 


DKU51070 


angs=stang 


DK051080 


eplan=o.s*ff 


DK051090 

411 

CALL GEOFAC(FF) 


DK05H00 


falb=ff+ff 


OK 051 HO 


IFIFALB) 412 # ul5 # 4 IS 


DK051120 

412 

F AuB— 0 * 0 


UK 051130 

4ib 

ESUN=2*0*COSKS< JSA f ) 


DK 05 1140 


IF(FSUN) 416# 60 # bO 


DKoSllSO 

416 

P SON-0.0 


DK051160 


G01O 60 


UK 051 170 

C 

OKIbNTEU# SuN # VARIABLE PLANET 

IRMPuRaTUPE 

DK 051 180 

4*: 

call GEOFACOF) 


DK 051 190 


fplan=ff+ff 


DK051200 


FAlBfFPLaN 


DK 051210 


stang=angs 


DK 05 1220 


angS=o.o 


DK051230 


CAUL GtOPAC(FF) 


DKU51240 
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ANGS=STANG 

KUb=2.G*FTM*FF/(S*(1.0-R) ) 

IF (FPLAN-RUB ) 420*420,422 
420 FPLAN=RUb 
422 IF(FALB) 412,415,415 
50 F SUN— 0 . 0 

49 F ALBrO « 0 

60 GSuN=FSUN*SAS 2 
GALB=FALb*SRASH 
QPLAN=FPLAN*EPTP4 
QSuNrAMAXl (QSUN,0.0 ) 

QALBrAMAX 1 < QALB , 0 . U ) 
GPLAN=AMAX1 (GPLAN, U *0) 

QEXT — QSUN+Q ALB+QPL AN 
GNETbAS* ( QSUN+Q AlB ) +£PP*QPLAN 


agsun=as*gsun 


AQALB=AS*GALb 


500 


bOl 


AQPLN=EPP*QPLAN 

ATOT=GNET 

IF(ZAREA( JSAT) ) bOifbOl 
A05UN=AQSUN* ZAREA ( JSAT 
AGALB=AGALB* ZAREA(JSA1 
AGPLN=AQPLN* ZARLA(JSAT 
ATGTsATOf* ZARtA ( JSAT 

F4=l,0 

IF 1 NOR IEN ) 6u7 » 6u6 , 607 


,500 

) 

) 

) 

) 


bU6 F4=4.0 

bu7 HSUNt JSAT )=F4*GSUN 
HAlB( JSAT)=F4*QALB 
HPlAN ( JSAT ) =F 4*GPLAN 
HAbUN ( JSAT )=F4* AGSUN 
HAALB ( JSAT ) =F4 * AqAlB 
HAPLN ( JSAT ) -F4* AQPlN 
HAf OT ( JSAT )=AT0T*F4 
IF ( NGORT *NQORT — 3+NQORT >61,71,61 
bl CALL GIFlNDt JSAT, TtLAPS-T IMEZ , TBREAK , ONE W , GOLD) 
71 GO TO 99 

99 IF ( NGORT -3)999,105,105 
105 IF (SUN-1. 0)106, 107,107 
C *** fcPP FOR SHADE SIDE (CONSTANT) 

10b LAKKiJSAD =LPP 
GO TO 999 

C *** ACCUMULATE EPP FgR SUN SIDE 
107 NBKITE(JSAT) =:NBK1TE( JSAT) +1 
bRiTE (JSAT) =BRlTEtJSAT> +EPP 
999 RE (URN 
END 


DKQ51250 
DK051260 
DK051270 
DKU51280 
DK051290 
DK051300 
DK 0513 10 
DK051320 
DK051330 
DK051340 
DK0513&0 
DK051360 
DK051370 
DKg51380 
DK051390 
DKU51400 
DK051410 
DK051420 
DK051430 
DK051440 
DK051450 
DK 051460 
DK051470 
DK051480 
DK051490 
DK051500 
DK 051510 
DK051520 
DK051530 
DK051540 
DK051550 
DK051560 
DK051570 
DKU51580 
DKU51590 
DK 051600 
DK 051610 
DK051620 
DK051630 
DK 051640 
DK051650 
DK051660 
DK 0.5 167.0 
DK051680 
DK051690 
DK051700 
DKU51710 


FUR OECR6,OLCK6 

SUBROUTINE fread 

DIMENSION TRASH (17) ,F( 10,9,42) , HI AB (9) ,ANGTAB<10> , WH ( 1 8 ) , XH ( 9 ) , 
1YH(6> ,ZH(6) , ELL ( 9 ) ,KPP(9) ,RR(9) ,CAYY(Q> , TIME (2) 

DIMENSION DT (2,200) , T(2,200 ) ,SINL(20U) ,CUSL (20 0 > * SiNO ( 200 ) , 
lCObO(?OQ) , THICK (200) ,NCOAT (200) ,NSUPb( 200) , COSRS < 200 ) , PHIT (200 ) , 
2GAMM ( 200 ) ,NDUTY(200) 

DIMENSION ESUN(8) ,EEE(8,42) ,RO(8,42) ,SP(8,42) ,TGiNT(4l,8) 
DIMENSION BUFFER (1U) 

COMMON TRASH,F,HVAd,ANGTAB,WH,XH,YH,2H,ELL,RPP,RR,CAYY,PI,PIH, 
1H«UP I, PI 180, NOFIND, NGORT , IF IRST , NEWS1G 


UK 060000 
DK060010 
DK060020 
DK060030 
DK060040 
UK060050 
DK060060 
DKU60070 
DK060080 
DK060090 
DK060100 
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COMMON KPLNE | * NOK XdN f K 1 EMP f NUMRUN f NSATP.fNPR INT f KRf V f NP50 r REV 
COMMON Ar«FCFAYEF8EEFRPFRNFPEE,ELFRFCAYFdARL#SFALP2FBET2fGAM2, 
X ALPHA? r BET A2 f GAMMA2 fCOSA f COS b f COSGfSINB f PHIMAX 
COMMON SIGMA r CS I CM A f S.SIGM A f TS IGMA 

COMMON PH IZ2 f DPH i2 f PHI Z f DPHI f PHI f CPH1 » SPHI f PHIN2 f PHOT? f SUN 
COMMON TXMEZfTARSf T.ELA.PS , ZEI T f T I ME f DELTAT f XH f YPf DEE f OPSG r J1 f J2 
COMMON EPTP4 f EPSIG2 f TM f FJMf SAS2 * SRASH 
COMMON G f RHRCP f RHO f CPf EPSLNf XTK f K I TEH 

COMMON GNETfOSATFQlNTFGEXTrGPLANFQALbFQSUNFGOLDFGNEWFTBREAK 
COMMON GAM f PH IC f AL1 f ALTI f ANGS f CTHET f FD fFF 
COMMON BUFFER 

COMMON COSLSf SXNLSf OT f T f SINLfCOSLf SINO f COSOf THICK f NCO AT f NSgBS f 
XCOSRSfPHIT fGAMM 

COMMON ESUNfEEEfKO f SP f t.GlNT# NDUTY f ANINCLf AS'CNOD r ASNLNGf RGTASC f 
XOECLIN 

DIMENSION Z( 13 ) 

HTAB(1)=-1.E20 
HTABC2) =1UO*0 
HTAB 13) = 30:0 # U 
HTAB(4) =600. U 
HTAB (5) =1000*0 
HTAB (6) =30 00.0 
hTA8t7) =6000,0 
hTAB 1 8) =10000. 0 
HTAB ( 9 ) =20000 * 0 
ANGT AB (1 ) =0,0 
ANbT AB ( 2 ) =20 • 0 
ANbT AB ( 3 ) =30 • 0 
ANbT AB ( 4 ) =40 • 0 
ANbT AB (5 i =50 .0 
ANbT AB (6 ) =60 . 0 
ANbT AB ( 7 ) =70. 0 
. y «NbT AB( B > =80» 0 
/ NcTAB ( 9 ) =85* 0 
AT b TAB ( 1 U ) =9.0 • 0 

Kfc A J l 5 r 6u0 } t (F(U fKfI) r U=1 • 1 U > f K=? , 9 ) 

KEAL'i5F6U0) < ( <Ft JfKfL) f J=Xf 10 ) »K=2r9 ) fL=8f42) 

6u0 FORMAT (20F4. 4) 

DO 47 L=2 1 7 
DO 47 K = 2 f 9 
DO 47 J=i f 10 
4/ F(JfKfL)=F(JfKf1) 

CONSTANTS WHICH ARE DEFINED ONLY PIR51 TIME AROUND 
PI=3, 1416927 
I WOP I -6 * 2831853 
PIh=i. 5707963 
PI 180= . 017453293 
bARL=4B, B9E1U 
ELL(1)=4B.89 e10 
ELl < 2 ) =4d • 89t 1 0 
ELL(3)=2bb.3tlO 
EL«-<4)=74.6lElO 
ELL (5 ) = 1 9 , 0 3E X 0 
ELL ( 6) =1476 ,E10 
ELL i 7 ) =467 . 9E X 0 
ELL (B) =941.3e10 
ELl ( 9 ) =3b .43E10 
CAYYll )=141 .e 14 
CAYYl2)=i.731EX4 
CAYY(3)=4490U # El4 


DK060110 
DK060120 
OK 06 01 30 
DK 0601 40 
DK 060 150 
DK 06 01 60 
DK060170 
DK060180 
DK060190 
DK0602Q0 
OK 0602 10 
DK060220 
DK060230 
DKQ6Q240 
DK060250 
DK060260 
DK060270 
DK060260 
DK060290 
DK 060 300 
OK06Q310 
DK060320 
DK060330 
DK06Q340 
OK 060350 
OK 060 360 
DK060370 
DK 060380 
UKG60390 
DK060400 
OK060410 
DK060420 
DK060430 
OK 060440 
DK060450 
OK060460 
UK060470 
DK060480 
UK060490 
OK060500 
0K060510 
OK060520 
UK060630 
DK06U640 
OKU60550 
DK060560 
UK060570 
UK06U580 
DKQ60590 

DK06Q600 
DK060610 
OK060620 
DK060630 
OK 060640 
OK 060650 
UK06Q660 
DK060670 
UK060680 
DK060690 
UK060700 




CAYY 14)?15<»2UE14 

DK060710 


CAYY ( 5 ) -7 • 66t 14 

DK060720 


CAYY(6)=2435.E14 

DK060730 


CAYY (7)-1345U*£l4 

DK060740 


CAYY (8)=«dU58*E14 

DK060750 


CAYY(9)=il4.ttE14 

DK06Q760 


KPF{l)=2U.9Eb 

DK060770 


KPP ( 2 ) “5 • 702E6 

DK060780 


KPP(3)=229.3t6 

DK060790 


KPp(4)=10.87L6 

DK060800 


KPp(b)=8.1blE6 

DK060810 


KPH (6)=81 ,5lt6 

DK06G820 


KPP(7)=188.7t.fe 

DK060830 


KPP ( 8 ) —83 »6Eb 

DK060840 


KPP (9)=2u .34 l6 

DK060850 

*** 

EARTH ALbEUO CHANGED APR. 1966 <tt AS=.39) 

OK060860 


KR(l)r.3b 

DK060870 


KR(2)=.047 

DK060880 


KR ( 3 ) — *51 

DK060890 


K«t4)=.l4H 

DK060900 


KR l b ) - • ObB 

DK060910 


KRtb)=.62 

DK060920 


KRl7)=.bU 

DK060930 


RK(8)=*6b 

DK060940 


KR ( 9 ) = * 7b 

DK060950 


DO 14 J=1»20U 

DK060960 


NCUAT(J)=1 

DK060970 


hSuBS( J)=i 

DK060980 


NDuT Y ( J ) -1 

DK060990 


1 HICK ( J ) — • 0 1 

DK061000 


SlNOl J)=U.O 

DK061010 


COSOt J)=i.O 

DK061020 


Sl iNL ( J J — U • 0 

DK061030 


CObL ( J )=1* 0 

DK061040 

14 

bAiV|M(Ji=9U.0 

DKU61050 


READ IN HEADING INFORMATION 

DK061060 


HEAD (5r 641 ) l ZH ( J ) » d= 1 r 6 ) * ( YH ( J ) , J=1 » 6 ) f ( XH ( J ) , J=lr9) * ( WH( J) 

♦J=lf 1DK061070 


lb) 

DK061080 

64l 

FORMAT U3A6) 

DK061090 


read Comment cards 

DK061100 

3U 

KEAU(5>4ub> KK» U(d) » J=l#13) 

DK06U10 

4ub 

FORMAT (I2f 13A6) 

0K061120 


IF 19 -Kk ) 37 f 37 f 38 

DK061130 

37 

wRiTt (6 » 406 ) (2(d) »J=lf 13) 

DK061140 

4U6 

F OkMAT ( / 1 X 13A6 ) 

DK061150 


oO TO 30 

DK061160 


READ IN lABLbS OF MATERIAL PROPERTIES 

DK061170 

38 

continue 

DK061180 

bOU 

KEaU ( 30 » 400 ) KCOaT > KSlJBS 

DK061190 

4 U U 

FORMAT ( 2 12 ) 

DK061200 


THERE ARE KCOAT COATING TABLES# KSUBS SUBSTRATE TABLES 

DK061210 


DO 3U 1 M-l * KCOAT 

DK061220 


CAlL TABLE. (EtE 1 1 f 1 ) » 1 f M) 

DK061230 

3ul 

tSuNlM)=tEE{>i,42) 

OKQ61240 


DO 302 M=lf KSUBS 

DK061250 


CALL TABLE (SPLlfi) FUfM) 

DKQ61260 

3u2 

CALL TABLE (RO ( 1 »1)» Of M) 

DK061270 

yy 

RE 1 URN 

DK061280 


tND 

DK061290 
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o u 


yz 

c 

9b 


9b 

yy 

c 

yy 


lUO 

c 

lUl 


FOR PECK 7 1 DECK 7 

SUBROUTINE QIF IND { US AT r TIMD, T'B , QN# QA ) 

DIMENSION TRASH (17 ) #Ft 10,9,42) ,HrAB<9 ) , AnGTAB (10) , KH( 16) , XH( 9) , 

1 Y H ( 6 ) ,ZH (6) ,ELL ( 9 ) ,RPP (9 ) ,RR (9 ) t CAYY (9 ) , I IME (? ) 

DIMENSION DT(2f200) ,T(2,200) ,SINl(20U) , COSL (200 ) t 51N0 ( 200 ) t 
1COSO ( 200 ) , THICK ( 20U ) t NCOAT (200 ) ,NSUBS<200) ,COSRS(200) *PHIT(200) , 
2GAMM (200 ) ,NDUTY(20O) 

DIMENSION ESUN(8) , £EE ( 8#42 ) , RO (8 ,42) , SP ( 8 , 42) , TQINT (41 #8) 
DIMENSION BUFFERUU) 

COMMON TRASH,F,HTAb,ANGl AB,WH,XH, YH ,2H ,ElL , RPP, RR , CAyY ,PI ,PIH , 
ITWUPI ,PI180 ,NOF IND ,NGORT , IFIRST ,NEwSIG 
COMMON KPLNE1 , NORILN , KTEMP , NUMRUN , NSATP , NPKINT , KREV r NP50 ,REV 
COMMON A , B , C , AYE , BEE , RP , RN , PEE , EL# R , C A Y , B ARL , S , ALP2 , BET 2 , GAM2 , 

1 ALPHA2 , BET A2 , GAMMA2 f COSA , C0S6 , COSG , SINB , PH I MAX 
COMMON sigma, CSI bMA,SSIGMA,TSIGMA 

COMMON PHIZ2,DPHI2#PHI2,DPHI,PHI,CPHI,SPHI,PHIN2,PH0T2,SUN 
COMMON TIMEZ, TABS# TELAPS,ZEIT, TIME, DtLTAT,XP,YP#DEE,DPSQ,Jl,J2 
COMMON EPTPM , EPSiG2,TM# FTM,SAS2» SRASH 
COMMON G,RHRCP,RHO,CP,EPSLN,XTK,KlTEK 

COMMON ONET , OS AT , Q IN T , QEXT , OPL AN , QALB , QSUN , GOLD * GNEW , TBREAK 
COMMON GAM , PHIC , AL I # ALT I , ANGS , CTHET r ED , FF 
COMMON BUFFER 

COMMON COSLS,SlNLSrDT,T#SINL, COSL, SINO, COSO, THICK,NCOAT,NSUBS# 
1COSKS , PH II ,GAMM 

COMMON ESUN ,EEE ,RO , SP, T QINT ,NDUTY # ANINCL , ASCNOU, AsNLNG, RGTASC # 

I DELL IN 

DIMENSION AA(6) ,AAI (6) ,P(6) ,Pl(6) 

COMMON AA,AAI,P,P1, IORDER , IORD1 r IEKROR , THETA ,DTMAX,EN1 , EN, FACT, 
It NHAT ,ENHATL,EMAG# UERROR ,DTTEST 
COMMON HSUN , HALB , HPLAN , NODE 

DIMENSION HSDN(2U0) # HALB (200 ) , HPLAN ( 200 ), NOPE ( 200 ) 

COMMON KETCH 

COMMON HASUN , HAALB , HAPLN , HATOT 

DIMENSION HASUN ( 200 ) , HAALB ( 200 ) * HAPLN ( 200 ) # HATOT < 2.00.) 

COMMON ZaKEA 
DIMENSION ZAREA ( 200 ) 

COMMON I M THRU 
DIMENSION I Ml HRU ( 200 ) 

COMMON IMHI 
N=NPUTY (USAT) 

TlD=AMOD(TIMD,PEE) 

IF(TID) 92,92,95 
1 IU=1 IO+PEE 

FIND 1 IME A I START OF INTERVAL 
T A=T IP-ABS ( TIME (U1 ) -TIME (J2) ) 

K=IGIMT (41 t N ) 

IE TGiNT(4l)=0, SET QINT=U. 

IF TQINT ( 41) is 2 • v 4 • , • •• USE THIS AS INDEX FOR TESTS 
IF (K ) 96 , 96 ,b 
gold=o.o 

UNEW^OOLU 

NO change this timf 

1 BkEAK— T 10 
TB=TBR£AK 
GN=GNFw 
G A -GOLD 

IF (IMHI —USA 1 } 101#i0l, 105 

advance internal heat table index after processing last element 

DO 104 U=l,8 


DKOTOOOO 
DK070010 
DK070020 
DK070030 
DK070040 
DK070050 
DK070060 
DK070070 
DK070080 
DK070090 
DK070100 
DK070110 
DK 070 120 
DK07Q130 
OK 070 140 
DK070150 
PK070160 
DK070170 
DK070180 
DK 070190 
DK070200 
DK070210 
DKQ70220 
DKQ70230 
OK 0 70240 
DK070250 
DK 070260 
OK 070270 
DK 070280 
DK070290 
DK070300 
DK070310 
OK070320 

DKQ7G330 

DKQ70340 
DK070350 
DK070360 
OK070370 
DK07Q380 
DK070390 
DK 070400 
DK 07041 0 
DK070420 
DK070430 
DK070440 
DK070450 
DK070460 
0K070470 
DK070480 
DK070490 
DK070500 
DK070510 
DK070520 
DK 070530 
OK070540 
DK070550 
DK070560 
DK070570 
DK070580 
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c o 


NS | QINT (41 p J) 

IF ( N ) 104 p 104 p 102 

1 U2 IFiTQINKNf J)-TIU) 103*104rlU4 
lu3 TQlNT(41rJ)=lQINT(4i f Ji+2*0 
Ns TGI NT (41# J) 

00 TO 102 
104 CONTINUE 
lUb REIUKN 

h IF ITID-TQINT (Kp N) ) 6# 6* 7 
b GOlDsTUInT (K-1# N.) 
bO TO 97 

7 TBKEAKsTGINT(KpN) 

C 01 NT CHANGES THIS TIME 

OOLQsTQlNT ( K— 1 p N ) 

GNEWsTOINT (K+l# N) 

71 IF ( K— 38 ) 98 p 8 p 8 
Vtt K= K+2 

IF I T ID-TO INT (K pN) ) 99 p 99 ,991 

MOKE THAN ONE CHANGE THIS INTERVAL 
FIND AVERAGE GOLD 
991 uOLDsQNEw* ( T o I NT ( K p N) -TG INT (K— 2 p N ) ) +QOLD* ( TO INT (K-2 # N ) -TA) 
GNElwsTGlNl ( K+l pN) 

GO TO 71 

8 1 GIN I ( 40 p N ) =1 OOOUOOUU . 0 
GO TO 99 

END 

FuR UECftB p DECK 8 

SUbROUTI imE TALLY (Np NDp NQ) 

DIMENSION TRASH (17) #F( 10 #9# 42) # H1 AB<9) t ANG T Ab ( 10 ) pWH(18) pXH<9> p 
1YH(6) pZH ( 6 ) p ELL ( 9 ) p RPP ( 9 ) p RR (9 ) pCA YY (9) p TIME ( ? ) 

DIMENSION OT ( 2 p 2UQ ) # T ( 2# 200 ) pSINl ( 200 ) »COSL(200) pSINO (200) p 
1 COSO (200) » THICK ( 20U ) fNCOAT(2 UO ) pNSUBS(200> pC05KS(200) pPHIT<2G0> p 
2OAmM(200 ) » NQUT Y ( 200 ) 

DIMENSION ESUN ( 8 ) t EEE ( 8p 42 ) pKO ( 8 p 42 ) r SR ( 8 ? 42 ) p TO INT ( 41 p8) 
DIMENSION BUFFER ( 2 ) 

COMMON TKASHpFpHI AB p ANGTAB pWHpXHp YH pEHpELLpHHPrRKpCAYYrPIpPIHp 
1 1 WOP i pP UFO pNQF INI) p NGORT p IF IRST » NEwSiG 
COMMON KPLNE i p NO kIlN pKTEMP p NUMKUN pNSATPp NPR INT , KRFV pNP50p REV 
COMMON ApBpCp AYFpBEF #RP> RNpPEFpELpKpCAYpBAKLpS, ALP2pBFT2pGAM2p 
1 ALPHA? p BETA? p GAMmA 2 p COS A , COSB , COsG p SiNB pPH I MAX 
COMMON SIGMApCSIOMApSSXGMApTSIGMA 

COMMON PHIZ2pDPHI2pPHIZpDPHIpXHIpCPHIpSPHI pPHTN?rPHOT?»SUN 
COMMON TIME?, 1 ABbr T FLAPS p ZEI I pTImEpDEI T AT p XP p YP p UFE p DPSO p J1 p J? 
COMMON EP T P4 p EPS 1 G2 p T M p F TM p S AS2 p SR ASH 
COMMON G p HHRcPp RHOp CP pfcPSLNp ITK pKITFK 

COMMON OnETpGSATpGiNT p GExTpOPLAN, GaLB, GSUN, QOLDpQNEWp tbreak 
COMMON GAM p Phi C p AL V p ALT I p ANGS P CTHET p F D p F F 
COMMON Ph 1 1 p PH I? p IS 16 p FUDGE p T PL p JUDGE p BUFFER p RV #NL INE 
COMMON COSLS pSINLSpUTpTpSINLpCOSLpSINOpCOSOpTHICK, NCOATpNSUBSp 
ICOSRSpPHi 1 pGAMM 

COMMON ESUNpLEEprtOpSPptQlNTpNDUTYP ANANCL p ASCNOUpASNLNGpRGTASCp 
1DECL1N 

DIMENSION A A ( 6 ) p A A 1 ( 6 ) pP( 6) rPl (6) 

COMMON A A p A A 1 p P , P 1 p I ORDER p I ORD 1 r 1 EkR OR p THE f A p D1 MAX p FN1 pFNpFACTp 
1 YNHA T p EN hATL p FN Ab pDERROR p DTTEST 
COMMON HSUNpHALBpHPLANpNODE 

DIMENSION HSUN(2uO) pHALB (200) ,HPlAN(200) p NODE (200) 

COMMON KdTCH 
NC=NG+4 
1F(ND) 9 p 9 p 8 


DK070590 
DK070600 
DKG7Q610 
DK070620 
DK070630 
DK070640 
OK 070650 
DK 070 660 
DK070670 
DK070680 
DK070690 
DK070700 
DK07Q710 
DK070720 
DK070730 
OK 07 0740 
DK070750 
DK070760 
DK070770 
DK070780 
DK070790 
DK070800 
DK070810 
DK070820 
DK070830 
DK070840 
DK080000 
DK 080010 
DK080020 
DK080030 
DK080040 
DK 080 050 
DK080060 
DK080070 
DK 080080 
DK080090 
DK080100 
QK080U0 
DKU80120 
DK080130 
OK 080 140 
DK 0 8 0 1 5 0 
DK080160 
DK 0801 70 
DK080180 
DK 080 190 
DK 080200 
DK080210 
OK08O22O 
UK080230 
DK 080240 
DKU80250 
DK080260 
DK 080270 
DK 080280 
DK080290 
DK080300 
DK080310 
DK080320 
DK080330 


151 



o o 


90 


2 

7ull 


4 

7033 


5 

51 

53 

52 

54 

55 
b 

61 

63 

62 

64 


IF ND IS NEGATIVE* START NEW PAGE DKQ80340 

N=1 OK 080 350 

GO TO ( 1 * 2 * 3 * 4 * 5 ► 6 ) * NC DK080360 

WRITE (6*700) OK 0 8 0370 

GO TO 20 DK080380 

WRITE (6*7011) OK 080 390 

F OKMAT ( 1H1 * 33X * 22 H 1 NC I DENT ( BT U/Hr-FT**2 ) / / ) OK 080400 

WRITE (6*701) UK080410 

GO TO 20 OK 080420 

WRITE (6*702) DK080430 

GO TO 20 OK 080440 

WRITE (6*7033) DK08O45O 

FOkMAT ( 1H1 * 23X* 22 HINCIDENT ( 8TU/HK-FT**2 ) // ) DKQ80460 

WRITE (6*703) OK 080470 

GO TO 20 DK080480 

KETCH CONES FROM SUBROUTINE TINPUT* WHEN KETCH =0 * WF HAVE OK080490 

NO AREA INPUT DKQ8G500 

IF (KETCH) 51 *52 *5i DK080510 

WRITE (6*53) DK 080520 

FORMAT ( 1H1 * 24X * 22HINCI0ENT ( PTU/ HR— FT* *2 ) * 27X16H ABSORBED ( BTU/HR ) // ) DKQ80530 
GO TO 55 OK 080540 

WRITE (6*54) DK 080550 

F OKMAT ( 1H1 * 24X * 22 HI NC I DENT ( BTU/HR-FT**2 ) * 2 3 X 2 ?H ABSORBED (BTU/HR-FT+DKO8056O 
1*2)//) DK080570 

WRITE (6*705) DK080580 

GO TO 20 DK080590 

I F ( K E T C H ) 6 1 * b 2 * 6 1 OK 0 8 0 6 0 0 

WRITE (6*63) DK080610 

FORMAT ( 1H1 * 34X* 22HINCIDENT ( BTU/Hk-F T**2 ) * ?7 XI 6H ABSORBED (BTU/HR ) // JDK080620 
GO TO 65 DK080630 

WRITE (6*64) DK080640 

FORMAT ( 1H1 * 34X* 22H INCIDENT (BTU/Hk-FT** 2) * 23X22HABS0RBFD ( BTU/HR— FT*DK 080650 


1 * 2 )//) 

6 b WRITE (6*706) 

GO TO 20 
N=N+ND 

IF ( N— 56.) 20*20*10 

IF NO CAUSES LINE count TO EXCEED 57* start new page 


0KQ80660 
DK080670 
DK080680 
DK080690 
UK 080700 
DK080710 
DK080720 
DK080730 

PHI5X4HT IME2X28HTF-MPeR ATUPE AND/OR HEAT FlUX) DK080740 

PH I5X4HTIME2X11HTEMPERATUPE4X6H0S0LAR3X7H0ALBFD03X7HQPDK 080750 

DK080760 

PHI5X4HTIME2X11HTEMPERATUPE) DK0PQ77O 

PHI5X4HT IME7X6H0S0LAR3x7H0ALbFD03X7HGPUANFT) DK 080780 

bH PHI5X4HT IME7X6HQS0LAR3X* UK080790 
1 7 HuALBED03X7HQPLaNET 15X6HQS0L AR3X7HOAL BEDO3X7HQPLANFT4X6HOT0T AL ) DK0808Q0 
/U 6 FOKMAT ( bH PHIfaX4HTTME2XllHT£MPEKATUDK0808l0 

lKE4X6HGSOLAR3X7HQAuBE0O3X7HOPLANtTi5X6H0SOLAR3X7HOALBFDO3X7HGPLANEDK080820 


10 

N=nU 


GO TO 90 

7U0 

FORMAT (6H1 

7ul 

F OKMAT ( 6 H 


IlAnET ) 

702 

FORMAT (6H1 

7u3 

F OKMAT ( 6 H 


/Ob FOKMAT ( 


20 


214X6HQT0IAL ) 

return 

end 


DK 080830 
DKO 8 O 84 O 
DK08Q850 


FOR UECK9 * DtCK9 

SUbROl J T I Nt LOCUS 

DIMENSION TRASH < ±7 ) *F ( 10-*9*42) ,'H'I Ab (9 ) * AnG TAB ( 10) » wH( 18) * XH(9) * 

1 YH ( 6 ) *2H(6) *ELL<9) *KPP(9) *RR(9) *CAYY(9) * l IME ( 2 ) 

DIMENSION OT(2*2UO) *T< 2*200 )*SINL(20u) *C oSL ( 200 ) * S1NO ( 200 ) * 

ICOSO ( 200 ) * THICK { 200 ) * NCOAT ( 2U0 ) * NSuBb ( 20o ) * COSRS ( 200 ) *PHIT(200) * 


DK 090000 
DK 0900 10 
DK090020 
DK 090 030 
DKQ90040 
DK090050 
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vC a 


10 


2GAMM(2O0> 

DIMENSION ESUN(8) *EEE( 8*42) *R0 (8,42) *SP( 8,42) ,TGINT (4 1*8) 

COMMON TRASH, F, HI A6 , AN6TAB , WH, XH , YH , ZH ,ELL , RPP , RR , CAYY * PI , PIH , 

IT WOP I , PH80 * NOFInD * NQORT , IFIKST* NEtoSlG 
COMMON KPLNET , NOR IEN , KTEMP , NUMRUN * NS ATP , NPR INT * KRE V , NP50 * REV 
COMMON A,8,C*AYE,BEE,RP*RN,PEE,EL*R*CAY*BARL,S,ALP2,BFT2,GAM2* 
1ALPHA2*B£TA2*GAMMA2,C0SA,C0SB,C0S(5#S1NB,PHIMAX 
COMMON SIGMA, CSICMA,SSIGMA,TSIGMA 

COMMON PHIZ2*DPHI2 ,PHIZ* DPHI , PHI , CPHI , SPHI , PHIN2, PH0T2 *SUN 
COMMON TIMEZ * TABS* TELAPS,ZEIT, TIME, DELTAT*XP*YP*0EE,DPSQ*Jl*J2 
COMMON EPTP4 , EPSIG2 ► TM * FTM, 5AS2 * SR ASH 
COMMON G , RHRCP * RHO , CP , EPSLN , I TK , K ITER 

COMMON QNtT ,QSAT ,QINT , QEXT , QPLAN, QALB , QSuN, GOLD , GNEW ,TBREAK 
COMMON GAMrPHIC, ALTrALTI, ANGS»CT hET,FD,FF 
COMMON PHI 1 , PH 1 2 , 1 S I G , F UDGE , T4 , JUDGE , TPL , BUFFER *RV * NL I NE 
COMMON COSLS, SINLS*0T,T*SINL,C0SL*SIN0, COSO, THICK, NCOAT*NSUBS* 

1C0SRS * PHI T , GAMM 

COMMON ESUN,EEE,RO,SP,TGINT,NDUTYf ANINCL,ASCNODf AsNLNGfRGTASC, 

1UECLIN 

DIMENSION AA i 6 > , AA1 (6) * P (6 ) rPl < E. > 

COMMON AA,AAl,P,Pl, IQRDER , IORDl , I ERROR , THET A , DTMAX * EN1 * EN , FACT , 
lYNNATrENHATL , EMAG* DERROR , DTTEST 
COMMON HSUN 9 HA LB , HPLAN, NODE 

DIMENSION HSUN (200) ,HALB(200 > ,HPLAN ( 20 0 ) , NODE ( 20U ) 

FIND TIME AS A FUNCTION OF PHI • ALSO FIND X AND Y 
PHIH=0.5*PU80*PHI 
PH1R=PHIH+PH1H 
TPhIH=SIN(PH1H)/cOS(PHIH) 

ATP— ( A— C ) *TPh IH/B 
EE=ATAN(A1P)*2.0 
IF(EE) 8*8,9 
EE=EE+TW0PI 
SINEE=SIN(£E) 

T EL A PS=RN * ( £ E-C * S I NEE / A ) 

XP=COS(Et)*A -C 

YP=SINEE*B 

FIND USEFUL QUANTITIES DEPENDING ONLY ON SATELLITE LOCATIONDK090420 

DK09043O 


DK090060 
DKG90070 
DK090080 
DK09G090 
DKG90100 
DK090110 
DK 0901 20 
DK 090 130 
DK090140 
DK 090 150 
DK090160 
DK 090170 
DK090180 
DK090190 
DK 090200 
DK090210 
DK090220 
DK09Q230 
DK 090240 
DK 090250 
DK090260 
DK 090270 
UK 090280 
DKU90290 
DK090300 
DK090310 
DK090320 
DK090330 
DK090340 
DK090350 
DK090360 
DK090370 
DK090380 
DK090390 
DK090400 
DK090410 


2U1 

202 


205 

208 


2Bl 


282 


DPSQ=XP*XP+YP*YP 
uEh=SQRT (DPSU) 
f 0=1 * 0-SQKT ( 1 . 0-KP/DPSQ*RP) 
CTHET- ( XP*COSA+YP*COSG ) /DEE 
TPL=T4 

IF ( KTEMP) 208 » 208, 201 
IF (CTHET ) 205, 205, 2u2 
TPL=T4*SQKT ( SORT (4 « 0*CTHET ) ) 

IF ( T PL -I M ) 205,208*208 
f Pl -TM 
AL 1 1— DEE— KP 
CPHI=C0S(PHIK) 

SPHI-SINIPHIR) 

IF SATELLITE IS ORIENTED, 
IF (NOR IEN) 261,3,281 
sinls=sphi*csigma-cphi*ssigma 
C0SLS=-SPH I *SS I GM A-CPH I*CS IGM A 
ANGS=ARCOS( CTHET) 

ALT-3441 ,0* ALT I /RP 

IF (NOR IEN) 263*283,282 

CFLS= 1.0 

SFlS=0.0 

FLSC-CUSLS 


FIND PHIC , CQSRS ,-SlN AND COS LAMOA 


DK090440 
DK 090450 
DK090460 

DKQ9Q470 

DK 090480 
DK 090490 
OK 090500 
OK090510 
DK090520 
DK090530 
DK090540 
DK 090550 
OK 090560 
DK 090570 
DK090580 
DK090590 
DK 090600 
DK090610 
DK090620 
DK090630 
DK090640 
DK 090650 
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flss=sxnls 
GO TO 2831 

283 CFLS=C05Lb 
SFLSrSINLS 
FLSCrl.O 
FLSS=0.0 

2831 DO 287 K-lrNSATP 
IF(NORIEN) 2832 *2838 * 2838 

2832 C0SE=C0SL.5*C0SL (K ) —SINLS*SINL ( K > 

GAMM ( K ) =AKCOS ( COSE ) 

2838 KNuM=COSL ( K ) *SFLS+SINL IK ) *CFL5 

DEN=( (SINB*SINLS) **2+0056**2)^ COSO (K)**2+RNUM**2) 
KNUM=SINLS*SiNB*KNUM+COSB*COSO ( K ) 

COSX=RNUM/SOKT<DEN) 

!F<COSX-l.'0) 285 * 284 * 284 

284 PH it IK )-U.G 
GO TO 28b 1 

285 iF<CQSX+i.O) 2850 * 2850# 286 

28bU PHIT (K ) =180 # 0 

GO TO 2881 

288 PHIT (K > -AKCOb ( COSX ) 

2861 XF(NORIEN) 287*267*2862 

2862 C0bRS(K)=SINb*(C05L(K)*FLSC+SINLlK)*FLSS)+C0SR*C0S0(K) 

287 CONI 1NUE 

5 f ABS=TELAPS-1 I MEZ+ ( R V-l . 0 ) *PEE 
IF (TABS) 98*98*99 

98 TAB5=TAB5+PEE 

99 RETURN 
END 


DK090660 
DK090670 
OK 090680 
OK 090690 
DK090700 
DK090710 
DK090720 
DK090730 
UK090740 
DKQ90750 
0K090760 
DK090770 
DK090780 
DK090790 
DK 0908 00 
DK 090 810 
DK090820 
OK090830 
OK090840 
DK090850 
OK 09 0860 
OK 090870 
DKQ9Q880 
DK090890 
OK 0909 00 
OK09U910 
0K09Q920 
OK090930 
DK090940 


FOR UECKIO * DECK 10 

SUBROUTINE TEMPEk(gSAT) 

•DIMENSION TRASH (17) » F ( 10*9* 42 ) * Hi Au ( 9 ) f AwG TAB ( 1 0 ) * WH ( 18 > * XH ( 9 ) * 

1 YH ( 6 ) * ZH (.6 ) * t-LL ( 9 ) *RPP(9) *RR ( 9 ) * CA Y Y 1 9 ) * TIME (2) 

DIMENSION 0T(2*2u0) *T( 2*200 )*SINl (200) * COSL ( 20 0 ) * SI NO ( 200 ) * 

ICObO ( 200 ) *THiCM20U) *NCOAT (2UO) *NSUB5(20U) * CQSRS(200 ) * PHIT (200) * 
2 -GAmM ( 200 ) * NDUTY ( *0.0 ) 

DIMENSION ESUN<8) *E£E(8*42) *RO (8 * 42) * SP ( 8 * 42 ) * TQ1NT (41*8) 
DIMENSION BUFFER (8 ) 

COMMON TRASH* F* H l Ab * ANGT AR * WH * XH * YH* 2P * ELL * R.PP *RR*CAyY * PI * PIH * 

1 1 WOP I * P I 180 * NOF I NU * NOORT , I F IRST * NEWS I G 
COMMON KPLNE f * NOR IEN * K TEMP * NUMRUN * NSATP * nPK INT * KRFV * NPbO , REV 
COMMON A * H * C * A YF , BtE * RP * RN * PEE * El * R * C A Y * b ARL * 5 * ALP2 * BFT2 * G AM2 * 

1 ALPHA2 * BtT A2 , GAMM A2 * COS A , COSB f COSG * SI Nb * PH i MAX 
COMMON S1GMA*CSIGMA*SS16 MA*TSIGMa 

COMMON Pm IZ2 * DPH12 * PHI 2 * 0PHI *PHI * C.PHl * SPHl * PH I N2 • PHOT 2 * SUN 
COMMON T 1MEZ* TABS* f FLAPS * ZEIT , T ImE , DELTA T * XP * YP * DEE *DPSG * J l * JP 
COMMON EPTP4 f EPS1G2 * TM * FTM , SA52 * bRASH 
COMMON 6 * RHRCP * RHO * CP * EPSLN * ITK * K IT FK 

COMMON ONtT * US AT * 01 NT * QEXT * OP LAN , QaLB , QSljN * GOLD * (JNfcW * TBREAK 
COMMON GAM *PHIC * AL I * ALT I * ANGS * CTHET * F D * F F 
COMMON PH i 1 * PHI2 * BUFFER 

COMMON CoSLS*SlNLS*UT»T*SINL*COSL*blNO*COSO* THICK > NCOAT*NSUBS* 
1COSRS * PH I I * GAMM 

COMMON ESUN * EEE * HO * SP * TG INT * NDUTY * AN 1NCL , ASCNOU * ASNLNG * RGTASC * 
1DECLIN 

DIMENSION A A ( 6 ) * AA1 ( 6) *P(6> *Pl(6) 

COMMON AA* AAa * P* PI * I ORDER * IORD1 * 1 ERROR * THE l A *DTMAX *ENl * EN*FACT * 
lYNhAl *£NHATL*£MAG *UEKROR * DTTEST 


DK 100 000 
OKI 000 10 
DK100020 
DK100030 
DK100040 
UK 1000 50 
OKI 00 060 
DK100070 
DK100080 
DKi00090 
DK100100 
OKI 001 10 
0K100120 
OK 1001 30 
DK100140 
DK100150 
DK 1001 60 
DK 100 170 
UK 100180 
DK100190 
DK100200 
□K 100210 
OK100220 
DK 1 0 0 2 3 0 
DK100240 
DK100250 
QK100260 
OK100270 
DK100280 
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u=uSAT 

OK 10 0290 


DELT AT=T X ME l J2 ) -T IwE ( J 1 ) 

DK100300 


TIME1 = TIME ( J1 ) 

DK 100310 


HOKD=OTMAX**iOROLK 

DK100320 


CALL HEAT<J) 

DK 100330 

c 

NEW LOGIC 

OK100340 


lFLAG s i 

DK100350 


X F l QOLD-QNEW ) 60 # 60 #60 

DK 100360 

fou 

QINT = GOLD 

DK100370 


TLtFT=TlMfc( J2)-T6KtAK 

DK100380 

C **** THE FOLLOWING CAKO WAS ADDED 2/4/65 AT THE REQUEST OF MR! **** 

DK100390 


1 LEFT=AM0U ( TlEFT » PEE) 

DK100400 


DELT AT=0E.LT AT -TLEP 1 

DK 100410 


DELTAT=AMOD( DELTA! » PEE ) 

DK 100420 


1FLAG = 2 

DK100430 


GO TO 51 

OKI 00440 

bi 

1FLAG = 1 

OKI 00450 


TiMEl = TIME1 + DELTAT 

DK100460 


UElTAT = 1 LEFT 

DK100470 


DELT AT=AMOO(OELTaT# PEE) 

DK 100480 


HohJ) - TEMP 

OKI 00490 

bU 

QINT = QNEW 

DK100500 

C 

foEGZN OLD LOGIC 

DK.1 0.0.51.0 

bi 

TEMP=T( JD 0) 

OK 10 0520 


Clu=10.0 

DK100530 


Q2=S9RT(QNET+QIN| ) 

DK100540 


Q4-SQRT (Q2) 

DK100550 


PF2=SQRT ( -0 . 6*EPSIG2) 

DK100560 


PF4=S0RT (PF2) 

DK100570 


UTl=C10/(HHRLP*U J iNtT+OXNT+0.b*EPSlG?»TEMP**4) ) 

DK100580 


UT1=ABS(D1 1) 

DK 100590 


DT2=1 • 0/ ( ( Q2+PF2*TEMP**2 ) * ( Q4+PF4*TFMP ) ) 

DK100600 


DT fEST=AMINl (DTI f D( 2 ) 

DK100610 


IF (DTTESl ) 52 # 52 >63 

DK100620 

62 

DT \ EST -*00001 ♦PEE 

DK 100630 

63 

XSTEPS-DtLTAT /DT i EST+ . 999 

OKI 00640 


IF lISTEPSUOUrlnOflOl 

DK100650 

1UO 

1S1EPS=1 

DK100660 

101 

STEPS=I5TEPS 

DK100670 


step=deltat/steps 

DK100680 


iheta=step/dtmax 

DK100690 


!EMP=T( JirJ) 

DK 100700 


I I ME 2 = \ IMEi 

DK100710 


DO 30 I = 1 # 1STEPS 

OKI 00720 


FO = PHI FN(TlME2f TEMP# STEP) 

DK100730 


1Eiv»P=TEMP+STlP*Fu 

DK100740 


GO TO ( 1 # 1 » 3 ) # IEKROR 

DK100750 

X 

call FHROK < STEP # FO ) 

DK100760 


eni=en*hukd 

OK100770 


UErROR= ( EN-EMAG ) *HORD 

DK 100780 


EMAG=EN 

DK100790 


WRITE (6 #601 i ENl # DERROR> TEMP 

DK100800 

foul 

FORMAT (5H0ENl=:lPb.l4.7#bH DE=E14*7#7H TEMP=£l4.7) 

OK100810 


CONTINUE 

DK100820 

30 

IIME2 - TIME2 + STEP 

OKI 00830 

C 

NEw LOGIC 

DK100840 


go to (62 #61 ) # i flag 

DK100850 

C 

begin old logic 

DK100860 

62 

T ( 02# J) - TEMP 

DK100870 

11 

RETURN 

OK 10 0880 
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fc.NO 


DK100890 


FOR DECK Ilf DECK 1 1 

SUBROUTINE INI T 

DIMENSION TRASH Q7) ,F ( 10 , 9,42 ) f NT Ab (9 ) f ANGTAB(lO) rWHUB) f XHC 9) r 
1YH(6) rZH<6 ) fELL< 9) r KPP< 9 ) ,RR < 9 ) t CA YY< 9 ) f J IME ( 2 ) 

DIMENSION OT ( 2 r 2l)0 ) f T (.2 f 200.) f SINL ( 200 ) fCOSL( 200> rSINO(20U) f 
1C0S0 ( 200 ) t THICK (200) f NCOAT ( 200 ) f NSUBS ( 20U ) » COSRS ( ?0G ) fPHIT (200> f 
2GAmM(200 i f NDuT Y ( 200 ) 

DIMENSION ESUN ( 8 ) fEEE(8f42> fRO ( 8 ,42) # SP < 8 f 42 ) f TGINT <4l jf 8 ) 

dimension Buffer i 6) 

COMMON TRASH, F, HT Ati, ANGTA8, WH,XH, YH,ZH,ELL , RPP , RR , CAYY f PI f PIHf 
IT WOP I fPI 180 , NOFInDfNQORT , IFIRST f NEwSLG 
COMMON KPCNET fNOKIENfK IEMP»NUMRUNfNSATPfNPRINTfKREVfNP50fREV 
COMMON A,BrCFAYEF8tEFRpFRNFPEEFELFRFCAYFBARLFSFALP2FBET2FGAM2, 

1 ALPHA 2 f BE TA2 f GAM M2 1 COS A f COSB , COSG, SINB , PHI MAX 
COMMON SiGMA,CSIGMA,SSIGMA,TSlGMA 

COMMON PH 122 f DPHI2 f PHI Zf OPHI , PHI t CPHi f SPHI f PHIN2 f PH0T2 f SUN 
COMMON T 1ME7 1 TABS f TEL APS , ZEIT f T IME f DELTAT f XP f YP f DEE t DPSQ f J1 f J2 
COMMON EP t P4 ,EPSiG2 f TM f FTM , SAS2 f SR ASH 
COMMON G fRHRcPf RHOfCP , EPSLNf I TK ,KITER 

COMMON ONE T f OSAT f Q iNT , QEXT f GPL AN , Q AL b , OSuN f GOLD f GNEW f TBREAK 
'• COMMON GAMfPHICfAU fALTIfANGSfCTHETfED,FP 
COMMON PH I I , PH 12 , HciFFER , R V , NL I NE 

COMMON C0SLSfSINlSfDT,TfSINLfC0SLfSIN0,C0S0fTHICK,NC0ATfNSuBSf 
ICOSRSfPHI \ rGAMM 

COMMON ESUN , EEE , RO f SP f TG I NT r NDUT V 
C DETERMINE REFERENCE TIME 

PH I -PHI 22 
KV-1.0 
CALL LOCUS 

r imE2~t i mez+vabs 

IF i SUN-2.0) b9f80,8U 
8U PHIN2=-10.0 
PHOT2=-10.0 
GO TO 100 

89 iF(NOFINU) 90 f 90 f 92 

C SET UP SUN— SHADE TESTS FOR FIRST ORBIT 

90 IF (PHI 1 ) 1 r 2 f 2 

1 PHI1=:PHH+TW0PI 

2 IF (PHI 2 ) 3,4,4 

3 PHI2=PHI2+TWOPI 

4 DIF=PHI1-PHI2 

IF (ABS(OIF)-PI) 8,8,5 

5 If (DIF) 6,9,9 

b PH12-PHI2-TW0PI 

c interchange phii and phi 2 

7 KUB=PHI1 
PHI 1— PH 12 
PH I 2-RUB 
GO TO 10 

8 IF (DIF) 10,10,7 

9 PHI 1=PHI 1-TWOPI 

10 1 1=PHI 1-PHIZ 
I2=PHI2-PHIZ 

IF (Tl) 11,11,13 
1.1 if ( 12) 12 F 12,97 

12 I 1=T 1+TWOPI 

12=T2+TW0PI 


DK 1 1 0 0 0 0 
DK110010 
OKI 10020 
OKI 10030 
DK110040 
OKI 10050 
DK 110 060 
DK110070 
OKI 10080 
DK 11 0090 
DKllOlOO 
OKI 10110 
OKI 10120 
DK 110130 
OK110140 
OKI 10 150 
DK110160 
OKI 10170 
OKU 0180 
OKI IQ 190 
DK110200 
OKI 10210 
DKU0220 
DKl 10230 
DKl 10240 
OK 11 0250 
DK110260 
OK 110270 
DKl 10280 
DK110290 
DKl 10300 
DKl 10310 
DKl 10320 
DKl 10330 
DKl 10340 
DKl 10350 
OKU 0360 
OKI 10370 
DK 11 0380 
OKI 10390 
OKI 10400 
OKI 10410 
OKI 10420 
DK110430 
OKI 10440 
OKI 10450 
OKI 10460 
OKI 10470 
DKl 10480 
DK110490 
DKl 10500 
DK 110510 
OKI 10520 
DKl 10530 
DKl 10540 
OK 11 0550 
OK110560 
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1* 

c 

97 

C 

96 

99 


1U0 

92 

94 


C 


1 


IF ill) JL4#14#13 
IF { T2 ) 97 #97, 98 


IF (T2) 

98 # 98 # 97 



SUN=0 • 0 
00 TO 99 

ORBIT 

Begins 

IN 

SHADE 

SUN=1.0 

ORB IT 

BEGINS 

IN 

SUN 


PHilsPHlZ+T 1 

FHl2=PHlZ+r2 

PH 1 N2— PH 11/P1180 

PHU12=PH12/Pil60 

RETURN 

SUN =1.0 

IF( <PH0T2-PHiZ2)*(PHIZ2-PHIN2) } iOOr 
SUN=U .0 
CO TO 1UU 
t-Nu 


OKI 10570 
OKI 10580 
OKI 3 0590 
OK 110600 
OKI 1 0610 
DK 1 10620 
OK110630 
OKI 10640 
DK 110650 
OK110660 
OKI 10670 
OKI 10680 
OKI 10690 
OK11G700 

#93 DK110710 

OKI 10720 
DK110730 
DK110740 


FuK UECKl2#UEuKl? QK120000 

SUbKOUT t Nt FIND DK 120010 

DIMENSION X(3)#Y13) #U(4) ,V(4) DK120020 

tQu I VALENCE ( X < 1 ) # TK ASH ( 1 ) ) » < Y( 1 ) ,TkASH<4) ) , < U ( 1 ) f TK A&P ( 7 ) > DK 120030 

EQUIVALENCE ( V(l) »TKASH< 11 ) ) # (Cl# TRASH (15) ) » ( C? » TRASH ( lb ) ) DK120 040 

EQU I VALENCE ( 03 # TK AbH (37) ) UKl?0050 

DIMENSION TRASH (i7) »F< 10,9,42) #HTAb(9) # ANGT AB ( 101 , wH (, 3 8 ) # XH ( 9 ) # DK 120060 

lYHlfo) fZHlh) # t.LL ( 9 ) t KHP ( 9 ) » HR 1 9 ) t C A Y Y 1 9 ) , TIME (2) DK120070 

DIMENSION DT l 2 » 2u0 ) f T(2f 200 ) #SINl( 20U) # COSE < 200 )# SlNO ( 20 0 > r DK 120080 

lCQSO (200 ) f THICK (20U ) r NCOA7 (2U0 ) t NSuBS ( 200 ) # COSKS ( 200 ) # PH IT 1 200 ) » UK120090 

2oAmM( 200) fNDuTY (200) QK120100 

DIMENSION ESUN(R) t c.EE .('8 # 4.2) » HO (8,42) # SP ( 8# 42 ) # T G I N T (4lr8) DK120H0 

DIMENSION BUFFER t 8 ) DK 120120 

COMMON THASH, FrHI AB#ANOTARf WH,XH,YHr4H#FLLf RPP#BR»CAYYrPI#PlH» DK 120 130 
1 7 WUPi r P 1 180 # NOF INU » NQORT , IF IRST t NEwSiG DK 120140 

COMMON KPLNE I ,NOKlENf KTEMP#NUMRUNrNSATP»NPKlNT,KKFV ,NP50fREV DK120150 

COMMON A ,B f C rAYF# Bc.E » RP # RN , PEE # El # K # C A Y * B ARL fS#ALP2#BFT?fGAM2# DK 120160 

1ALPHA2»BET A2,6AMMA2rC0SA,C0SBf CObG#SlNB»PHlMAX DK120170 

COMMON SIGMA , CSIOMA t SSI GMA » TS I GMA DK120180 

COMMON PH l Z2 r DPH I 2 # PH 12# DP HI # PHI » CpHl , SPH I » PH I N2 » PHOT 2 » SUN UK 120190 

COMMON T 1M£2 t T ARs # fELAPS rZEIT # TIME f DEI. TAJ # XP # YP # UpE# pPSQ# J1 # J? DK12Q200 

COMMON EP1P4,EPSiG2»TM,FTM,SAS2»SPASH DK120210 

common G f RHRC P # PNG f CP # t PSLN , 1 T K # K IT EK DK 120220 

COMMON QnET » wS AT r WIN T # QE xT ♦ QPL AN # QrtLb , QSuN , GOl D # Q N E W# TBR£ A K DK 120230 

COMMON GAM,PhIC#AU#ALlI#ANGStCTHET#FP»FF DK 120240 

COMMON PH ll#FHI2» BUFFER DK120250 

COMMON CuSLSf SINlSpDT,T»SINL»c0Sl»SIN 0»C0S0» THICK, NCOAT# NSUBS# DK120260 
lCOSHSfPHll rGrtMM DK120270 

CO.iv.MON ESUN»L£E#RO#SP»TQINT#NnUTY DK120280 

DIMENSION KC14) DK120290 

PHllr-lOUO.O DK 120300 

PHi2=-lUo0*0 DK120310 

Phi x AND PHI? 1 u U 0 WILL SHOW THaT NO SUN-SHADE POINTS WERE FOUND OKi?0320 
XSi=0.U UK120330 

XS2=U.O UK 120340 

YS1=0.U DK120350 

YS*=U.U OK 120360 

SINSG=SSlGMA UK120370 

C OSSO=CS I GMA DK 1 2 0 3 8 0 

IF(AbStCuSB)-.Ol) 2 » 2 » 12 DK120390 
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n r 


C 

2 

C 

12 


37 


k 

671 
67 b 
C 

376 

C 

360 


361 


364 
36 5 
366 
C 

3V 

3*07 

41 
41U 

c 

42 

c 

43 


SUN IS IN ORBITAL PLANE 

DK120400 

CALL BETA90 

DK120410 

CO TO 99 

DK120420 

SUN IS NOT IN ORBITAL PLANE 

DK120430 

D2=C2*A 

DK 120440 

U1=C1*A*A 

OK 120450 

U— C/A 

DK 120460 

D31=C3-Ol 

DK120470 

UTUi U -C3+C3 

DK120480 

DS=D2*02 

OK 120490 

UU=C3— 1 • 0 

DK 12 0500 

A4=D31*D31+DS 

OK 120510 

A3-2 . 0*D* IDT 1 1 p 1 ) *D31+DS ) 

DK 120520 

A2=D*D* (DT M r 1 ) * IPI <1 1 1 ) +D31 ) +OS ) -2. U*0li*031-ns 

DK 12 0530 

A1=D*DT ( 1 9 1 ) * < 0*0*0 T U * 1 1-2 . U*OU > 

QK120540 

AO — ( DU-D*U*C3 ) **2 

DK 120550 

CALL ROUTINE TO FACTOR QUArTIC 

DK120560 

CALL QUART ( A4 p A3 p A2 p A.l p AO ) 

DK 12 0570 

KK=U 

DK120580 

SSHA1=0.U 

DK120590 

SSHA2=0.0 

DK 120600 

vC=l 

DK 120610 

00 375 J=1p4 

DK120620 

IF ( ABS ( V ( J ) J-.lOu) 37 1 p 375 p 376 

DK120630 

KCl JC)=J 

DK120640 

UC=JC+1 

DK120650 

continue 

OK 120660 

IF (DC— 3 ) 99p376p38U 

DK 120670 

TWO REAL ROOTS p PUT THEM FIRST AND SECOND 

DK 12 0680 

RK-2 

DK 120690 

GO TO 39 

DK120700 

FOUR REAL ROOTS p LOOK FOR A Rfc.PEAI ED ROOT 

DK 120710 

DO 365 K = 1p2 

DK120720 

KP— K+ 1 

0K120730 

00 384 U— KP p 4 

OK 120740 

DIE =ABS ( U ( J > -U I K >) - .0 0 1 

DK 120750 

IF (OIF) 381p3r4p384 

DK 120760 

PUT REPEATED ROOTS TOGETHER , FIRST OR LAST PAIR 

DK 120770 

TO AVOID TROUBLE IN GEiTlNb CORRESPONDING Y 

DK120780 

N=3-K 

DK 120790 

KUB=U(N) 

DK120800 

CRaSH=V (N) 

DK 12Q810 

U(N) =U(Ji 

DK120820 

V (N)=V( J) 

DK120830 

U(o) =RUH 

DK 120840 

v ( o ) “Crash 

DK120850 

GO TO 38b 

DK 120860 

CONTINUE 

DK120870 

CONI INUE 

QK 120880 

KK— 4 

DK120890 

FIND VALUtS OF Y CORRESPONDING TO FACE REAL X 

OK12Q900 

0=1 

DK 12Q91 0 

K=*C(U) 

DK120920 

C All W YE ( U ( 1 ) P K P Y 1 p P 1 P NP ) 

DK 120930 

SS=P1-SIGMA 

DK 120940 

IS PHi A SUPERFLUOUS ROOT 

UK120950 

IF (.COS (SSI ) 42 p 6u p 60 

DK 120960 

IF(KR) 43 p 43 p 44 

DK120970 

FIRST SUN-SHADE CHANGE POINT 

DK120980 

SSHAl=bS 

0K120990 
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PHII=Pl 
XSi=U (K ) * A 
TS1=Y1*A 
KR =1 

GO TO 60 

C SECOND SUN-SHADE CHANGE POINT 

44 SSHA2-SS 
PH12=P1 
XS2=U(K)*A 
rsa=yi*A 
4b KR=2 

GO TO 99 

C IF X IS A REPEATED R 

60 1.FCNP.) 70 * TO r 61 

61 NP=0 
U=J +1 
Pl=-Pl 
Y1=-Y1 

GO TO 410 
TO U=J +1 

IF(J-KK) 3907 f 39u7.*99 
99 RETURN 
END 


DK 121 000 
DK121010 
DK 12 1020 
DK121030 
DK 1.21 040 
DK121050 
OKI 21 060 
OKI 21 070 
DK121080 
0K121090 
DK121100 
DK 12 11 10 

USE + AND - Y VALUES DK121120 

DK 12 11 30 
DK121140 
UK 12 11 50 
OK 12 11 60 
DK 121170 
DK121180 
DK 12 1190 
DK121200 
DK121210 
DK 12X220 


FOR DECK 13 ► DECK 13 

SUbKOUT INE SUNOR ( Sl » CL r SO * CO t SB * CS #CD.» GM , NO > 
C05LP-S0*CL 
SINLP=SO*SL 
IF (NO) 250*99,205 
205 GM=ARCOS ( COSLP) 

GO TO 90 
2b0 CD=COSLP 

COSLP=SB*CD-CB*CO 
CO=CO*SB+CB*CD 
9U CL=COSLP 
SL-SINLP 
99 RE I URN 
END 


DK130000 
DK 130 01 0 
OKI 30 020 
OKI 30 030 
OKI 30 040 
DK130050 
DK130060 
DK 130 070 
DK 130080 
DK130090 
OK13Q1O0 
DK 130 110 
DK130120 
DK 1301 30 


FOR DECK 14 t DECK 14 

SUBROUTINE BETA90 

DIMENSION TRASH (17) *F ( 10 ,9 *42 ) f HI Ab(9) * AwGT AB ( 10) p \nH( 18) * XH( 9) * 

1 YH ( 6 ) » 2H ( 6 ) * ELL ( 9 ) # RPP ( 9 ) , RR ( 9 ) * CAY Y l 9 ) * 1 1 ME ( 2 ) 

DIMENSION DT l2*2u0> *T(2*200 )#SINL<20U) *COSL(20G> *S1NO<200) * 

ItOSO 1 200 ) , THICK ( 200 ) t NCOAT ( 200 ) , NSUBS ( 20u ) *COSRS<200) *PH1T(200) * 
2GAMM (200 ) #NDUTY (20U ) 

DIMENSION ESUN(8) *EE£ ( 8 * 42 ) * KO (8 #42 ) *SP ( 8 * 42 ) , TQ1NT (4l • B) 
DIMENSION BUFFER (8 ) 

COMMON TKASH,F*HTAB, ANGTAB,WH,XH,YHrAH,ELL*RPP*PK,CAYY,PI r PIH, 

17 WOPI fPI 180 > NOFIND >NQORT # IFIKST , NEtoSlG 
COMMON KPLNET*NORIEN*KTEMP,NUMRUN*NSATP*NPR1NT*KKEV*NPSO*REV 
COMMON A , H * C * A YE , BEE * RP * RN , PEE * El * K * C A Y * b AKL * S * ALP2 * dET2 * GAM2 * 
lALPHA2fBETA2,GAMMAafC0SA,C0SB»C0SGfSINBfPHlMAX 
COMMON SIGMA * CS IgMA * SSIGM A* TS I.GM A 

COMMON Ph122 * DPHI2 * PHI 2 * DPHI * PHI * CPH1 1 SPHl * PHIN2 * PHOT? * SUN 
COMMON TIME?* TABS* I ELAPS # ZEIT *T IMF * ntLTAT , XP * YH * DEE * DPSQ * J1 * J2 
COMMON EPTP4 *EPSiG2 *TM * FTM,SAS2 , SR ASH 
COMMON G , KHRCP > RHO r CP # EPSLN * 1TK# KlTER 


DK140000 
DK 140010 
DK140020 
UK 140030 
DK 140040 
DK140050 
DK140060 
DK140070 
DK14U080 
0K140090 
DK 140100 
DK140HO 
DK 140 120 
DK140130 
DK140140 
OK 140150 
DK 140 160 
OKI 40 170 
DK 140 180 
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COMMON QNET , USAT f 01NT f GEXT t GPL AN , GALb , QSuN , GOLD f QNEW , TBREAk 

DK 14 01 90 


COMMON G.AM.rPHZC»ALr »ALTl»AN6SrCTHF.T.fF0«Ff 

DM4Q200 


COMMON PH 1 1 * PHI 2 f BUFFER 

DK 14 02 10 


COMMON COSLSfSINlSfUTfTfSINLfCOSLf$IN0fCOSOf THICK, NCO AT fNSUBS# 

DM40220 


1C0SKS f PHiT # GAMM 

DK 14Q230 


C OMMUN ESUN , LEE , KO f SP f T 0 1 NT , N'QUT Y 

DK 140240 


DIMENSION PAK ( 2 ) f P 1 2 ) 

DK 14 0250 


pak ( i)=-i .0 

DK140260 


PAH (2) =1*0 

DK 140270 


akp=a*rp 

DK 140280 


bRP-B*KP 

DM40290 


CRP=C*KP 

DK 140300 


bB=B*P 

OKI 4031 0 


IF (CS IBM A ) 20 f 1 f 20 

OKI 40320 

1 

DO 1U J = 1 f2 

DK 140330 


CP=-ARP/ (CRP+BB*PAK ( J) ) 

OK 140340 


SPtl, 1 ) -SORT l 1 , 0-CP**2 ) 

DK 140 350 


IF t SSI DM A) 3 f 3 f 2 

DK 14 0360 

2 

SPU,1)=-SP(1f1) 

DK140370 

3 

1P=SP( 1 r 1 )/CP 

DK140380 


P( J)=ATAN(TP) 

DM40390 


IF ( CP ) 4,10,10 

DK 140400 

4 

p( j)=P( J)+PI 

DK 14041 0 

lU 

„ CONTINUE 

OKI 4 0420 

11 

PHi 1=P ( 1 i 

DK 140430 


PHi2=P(2) 

DK 140440 

99 

HE TURN 

DK 140450 

20 

DO 4U J=1f2 

UK140460 


BSCR=PB*SSIGMA+PAR ( J) *CKP 

DK 140470 


IFtBSCK) 28 f 21 f 26 

DK140480 

21 

SF ( 1 f 1 > =AKP*PAR { J ) / ( BB*CSIGMA ) 

DM40490 


UP=SGR 1 ( 1 . 0— SP ( 1 f 1 ) **2 ) 

DK 140500 


IF (CP*CSlbMA+SP(i,i)*SSlGMA) 23 f23f?2 

DK 140510 

'<LeL 

CP--CP 

DK140520 

20 

iF<CP) 2b f 24 f 26 

DM40530 

24 

P (u )=0 .5*PI 

DM40540 


IF { SP (If!)) £5t 4u f 4 0 

DM40550 

20 

PI0)=1 ,b*Pt 

DM40560 


bO TO 40 

DK 140570 

2 b 

TH=SP(1 f 1 ) /CP 

DK140580 


P ( o ) zATAin ( TP) 

DK 140590 


IF* CP) 2 7 f 4() f 40 

OKI 40600 

27 

H ( j ) =P ( U ) +P I 

DM40610 


bO TO 40 

DM40620 

20 

bS-~BB*CS 1GMA 

DK140630 


CC^PAR ( J ) *ARP 

UK 140640 


KUb=BS*Hb+BSCR*BSCK 

DK 14 Q650 


1 1— — CC*HSCR/KUB 

DK 140660 


I 2=BS*SQKl < RUB-CC*CC ) /HUB 

DK 14 0670 

29 

CP=T1+T2 

DK140680 


SP ( 1 f 1 ) =- ( CP*BSCK+CC ) /BS 

DK 140690 


lFlCP*CSibMA+SP(lFi)*SSlGMA) 23 f 30, 30 

DK 140700 

00 

CP=T1-T? 

OK 140710 


SPllrl )=- ( CP*BSCK+CC ) /BS 

UK 14 0720 


bO TO 23 

DK 14 0730 

4 0 

CON 7 1NUE 

UK 14 0740 


bO TO 11 

DK 140750 


LNU 

DK140760 
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bU 


2 


C 


3 


C 


4 


1U 

11 

lb 

Id 

2u 

21 


VO 

95 


FUR UECtvlS# DECK 15 

SUbROUT I NE W YE ( U , KK , Y 1 , Pi # NP ) 

DIMENSION X (3) , Y (3) ,U( 4) ,V(4) 

EQUIVALENCE ( X ( 1 ) , 1 RASH ( 1 ) ) , ( Y ( 1 ) , TRASH ( 4 } ) 

EQUIVALENCE ( V ( 1 ) , TRASH (11))# ( Cl # 1 RASH ( 15 ) ) , (C? * TRASH! 16) ) 

EQulV A lEn C E ( C 3, TRASH ( 17 ) ) 

DIMENSION TRASH (17) ,F( 10,9,42) , HI Ato(9),ANGTAB( 10>,WH( 18) ,XH(9) , 

1 YH ( 6 ) ,2H(6) , ELL ( V ) , RPP ( 9 ) ,RR (9) ,CAYY (9 ) ,TImE (? ) 

DIMENSION 0T(2,2UO) ,T (2,200) ,SINL(20U),COSL(200) ,SINO(200) , 

1COSO ( 200 ) , THICK (20U) , NCOAT ( 200 ) , NSUBS ( 20U ) ,COSRS(200) ,PHIT(2Q0) , 
2GAmM( 200) ,NDUTY(4l,8) 

DIMENSION ESUN < 8 ) ,EEE( 8 , 42 ) , RO ( 8 ,42 > , SP ( 8 , 42 ) , TQINT ( 4.1 , 8 ) 
DIMENSION BUFFER (1U) 

COMMON TRASH,F,H| Ab , ANGT AB, WH ,XH, YH,2 H,ElL , RPP , RK , CAY Y , PI ,PIH, 

11 WOP I , PI 180 ,NOFlNO,NQORT t IFIRST ,NEwSIG 
COMMON KPLNE1 , NOR IEN ,K1 EMP , NUMRUN , NSATP , NPRINT ,KRE V , NP50 , REV 
COMMON A*B,C, AYF,BEE,RP,RNfPEE,EL,K,CAY,BARL,S, ALP2,BFT2,6AM2, 

1 ALPHA? , BET A2 , GAMM A2 , COSA , COSB , COSO , SlNB , PH IMAX 
COMMON SIGMA , CS I DMA , SS.I&MA, TS IfiMA 

COMMON PHl22,DPHi2,PHI2,DPHI,PHl,CPHi,SPHl,PHIN2,PH0T2,SUN 
COMMON T 1 MEZ , T ABS , TEL APS , ZE I X , T I. ME , DELTA! , XP , YP * DEE , DPSG , J1 , J2 
COMMON EP1 P4 , EPSIG2 , TM , FTM ,SAS2 , SRASH 
COMMON G , RHRuP , RHO , CP , EPSLN , ilKi K I TER 

COMMON pNETfUSAT, Q aNT , QEXT , QPLAN , QAL b , QSUN , Q0LD*ONEW , TBREAK 
C OmMON G AM , Ph I C , AL f , ALT I , ANGS , CTHE T,FD , FF 
common BUFFER 

COMMON COSLS , S INLS ,UT , T , S INL , COSL , SI NO ,COSO , THICK , NCQ AT , NSUBS , 
1COSRS , PH I I , GAMM 

COMMON ESUN f LEE , RO , SP , T G INT , NDUT Y 

X(1)=U(KM 

BOA-B/A 

coa=c/a 

D ISC=1 . 0- l X ( 1 ) +CO A ) **2 


OK 150000 
DK150010 
DK150020 
DK150030 
DK 150040 
OK 150 050 
DK 150 060 
DK15Q070 
DK 150 080 
OK 150 090 
DK150100 
DK150110 
OK 15 0120 
DK 150 130 
DK150140 
OK150150 
DK150160 
OK150170 
DK 1501 80 
OK 150 190 
DK 15 02 00 
OK150210 
OK150220 
OK150230 
DK150240 
OK 150250 
OK150260 
DK150270 
DK150280 
OK150290 
DK150300 
OKI 50 310 
DK150320 


iFtUiSC+.UUOl) 9 u , 2 , 2 

YUEN=2.0*SS lGMA*CSiGMA*(l.Q-COSB**2)*X(l) 

IF ( ABS ( YUEN ) — , 0020 ) 3,4,4 
NO UNIQUE Y FOR THIS X VALUE 
YU)=B0A*SQR1 (DISC) 

NP=1 

GO TO 10 

UNIQUE Y FOR THIS X VALUE 

YNuM=X ( 1 ) *X ( 1 ) * ( (C0SB*CSIGMA ) **2+SSIGMA**? ) - ( REE/ A ) **? 
YNUM=YNUM+BOA*BOA*OiSC*( (COSb*SSlGMA)**2+CS16MA**2) 
Y(1)=YNUM/YDEN 
NP-0 

IF (XU)) 15,11,15 
PHI-1 • 57U79365 
GO TO 20 

PHi=ATAN(Y(l)/XU) ) 

IF(X(1)) 16,20, 2U 
PH 1 —PH I +3 • 1 4159 27 
I ORB = (Y(l) /BOA ) **2-DISC 
IF ( ABS ( TOHB ) — * 0 01 ) 21,21,90 

T SHADF=(COSB* ( X ( i ) *CSIGMA+Y ( 1 ) *SslGMA ) ) **?+ ( X ( l ) *SSIGMA- 
1 A ) **2 

1 SHADE— ( A/BEE ) **2* ( SHADE-1 . 0 
IF i ABS ( T SHADE ) • uO 1 ) 95,95,90 
PL— SIGMA 
GO TO 96 
P1=PHI 


DK150330 
DK 150340 
DK150350 
DK150360 
OKI 50 370 
DK 150380 
DK 150390 
DK150400 
OK 1504 10 
DK150420 
PK150430 
DK150440 
DK 150450 
DK150460 
DK150470 
DK150480 
DK150490 
DK150500 
OKI 505 10 
DK 150520 
YU) *CSIGMDK 150530 
UK15Q540 
DK150550 
DK150560 
DK 150570 
DK 150580 
DK150590 
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9b Y1=Y(1) 
RETURN 
END 


DK150600 

OK150610 

DK150620 


FOR UECK16fU£CK16 

SUBROUTINE SXGBEV (KABGrLSHADE) 

DIMENSION TRmSH ( i7 ) fF (10f9f 42 ) ,H1 AB ( 9) fAnGTAB(IO) f ttH(l.d) fXH<9) f 
17 H 16.) rZH (6) f ELL (9) rRPP(9) fRR (9 ) » CAYY (9 ) r TIMET 2 ) 

DIMENSION OT<2* 200) $7(2*200) $ SINl < 200 ) f COSL ( 200 > t SlNO ( 200 ) f 
1C0SQ<200) t THICK (ZOU)»NCOAT (2UG ) > NSURS ( 200 ) fCOSRS (200) fPHIT(2G0) # 
26 AMM ( 200 ) ? WUTY (200) 

DIMENSION ESUN(B) » EEE [ 0 » 42 ) fRO ( 8 r 42 ) *SP (0 t 42 ) ,TGINT <4l r ft) 
dimension BUFFER (8) 

COMMON TRASHrFrHf Atir ANGTAB»WH,XH f YHf^HfELLfRPPfRR#CAYY#PIrPlHf 
1 1 WOPI r P l IHO t NOF INO t NQOHY t IFIRST , NEWSiG 
COMMON KPLNET f NOR IENfKTEMPf NUMRUN » NSATP t NPR INT f KREV f NP60 f REV 
COMMON a r B r C f A YE f BEE r RP f RN f PEE 9 El f R f CAYfBARL f S f ALp2 f BFT2 f GAM2 , 

X ALPHA2 f BET A2 f G AMMA2 f COSA , COSB , COSG r S INB f PHIMAX 

common sigma f cs igma f ss i gma# tsigma 

COMMON PHIZ2fOPHI2 fPHI2 f OPHI fpHI f CPH i f SPHI f PHI N 2 rPhOT?» SUN 
common T Im£7 t TABS t IELAPSfZEI T f TIME, CELT AT fXPf YPfDEEfDPSQf J1 f02 
COMMON EP1P4fEPSIG^fTMfFTMfSAS2fSRASH 
COMMON GfRHRcPfRHOfCPfEPSLNfITKfKITER 

COMMON QNtT F OS at f QINT f QEXT f QPL AN F 0 ALb f QSUN F QOLDfONEW f TBRE AK 
COMMON GAM r PH IC f AL T # AL T I f ANGS r CTHE T r PDfFF 
COMMON PHI 1 fPHI 2 fBUFFER 

COMMON COSES fSINlSfUT,T#SINLfCOSLf5INOfCOSOfTHICKfNCQATfNSu8Sp 
XCOSRSfPHIT fGAMM 

common ESUNf EEE F KO p SP F TOINT fNOUT Y f ANINCL p A SC NOD r AsNLNG f RGT ASC f 
XDECL1N 

EGUl VALENCE < TRASH Ub) t Cl ) # I IK ASH ( X 6 ) f C2 ) f (TRASH (17) pC3) 

Z FIND SIGMA IF PART OF ORBIT MAY BE SHADED 

SUN=1.0 

IF(KABG) 600 f 70 0 f 6U0 

; IF KABG iS Of INPUT IS ALPHA, BETA, GAMMA 

6uo cw=cos ( ascnod*p i ieu ) 

SW=S1N( ASCN0b*PI18U> 

SO=S IN ( ASNLNb*P I 18 U ) 

CO=COS< ASNLN6*PIi8U> 

CI=C0S( ANlNCL*PIi8U) 

SI=SIN<ANlNCL*PIi 8 u> 

SR=SIN(RbTASC*PIi80) 

CR=COS ( KG T ASC *P I i 8 U ) 

CD-COS (OECL IN*PI 18U ) 

SO=S IN ( UECL IN*P I 18U > 

COSA=:( (Cw*CO-SW*SO*CI V*CR+SR*( CW*S0+SW*CO*Cl ) >*CD+SW*SI*SO 
ALP2— ARCOS ( COSA ) 

COSB=CO*SI*<SO*CK~CO*SR)+CI*SO 

ber2=ARCOS(COS8> 

S 1 NB =s I N ( P 1 1 b 0 *BeT 2 ) 

COSG=CO*<SR*(CO*CW*CI-SO*SW)-CR*iCw*SO»Cl+SW*CO) )+CW*SI*SO 
GAm2=ARCUS(COSG) 

7uO IF { ABS (COS A > — .0X1 701 f 710 f 71 0 

7U1 J.F t ABS 1 COSG ) — . 0 1 ) / 02 p 7020 p 7020 
7 020 IF (COSG > 704f703f7u3 
7u2 SUN=2*0 

**** THE FOLLOWING CARD WAS ADDED 12/lb/b6 TO ELIMINATE TFRMINATOR 
ORBIT PROBLEMS. ♦*** 

SSiGMArO.O 


DK160000 
OK 1600 10 
DK160020 
DK 16 00 30 
DK160040 
DK 160 050 
DK 160 060 
DK160070 
DK160080 
DK 160090 
DK160100 
DK160110 
DK160120 
DK 160 130 
0K160140 
DK160150 
DK 160 160 
DK 160170 
DK160180 
OK 160190 
DK160200 
DK 1602 10 
DK160220 
DK160230 
DK160240 
0K160250 
DK 160260 
DK160270 
DK160280 
OK160290 
DK160300 
DK160310 
DK 160320 
DK160330 
DK160340 
DK 160350 
DK160360 
DK 160 370 
0K160380 
DK160390 
DK 160400 
OK 160410 
OK160420 
0K160430 
OK160440 
DK160450 
0X160460 
DK160470 
0X160480 
UK 160490 
DK160500 
OK 160510 
OK 16Q520 
OK 160 530 
DK 160540 
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**** THE FOLLOWING CARD WAS ADDED 12/1 b/66 TO ELIMINATE 

terminator 

DK160550 


ORBIT PROBLEMS. 

**** 

DK160560 


CSiGMA=l ,0 


DK 160570 


SIGMA— 0 « U 


DK 160580 


GO 10 722 


DK 160590 

7u3 

SlGMA^P lh 


DK 160600 


SlGNiA2=9U.O 


DK160610 


S51GmA=1.U 


DK160620 


GO TO 70b 


DK 160630 

7u4 

SIGMA=1 .b*H I 


DK 160640 


SIGMA 2=2 7 0.0 


DK 160650 


SSiGMA=-1.0 


DK 160660 

/Ob 

LSI Gm A =0.0 


DK160670 


1 S IGmA—SS igma* 1 ,e 20 


DK160680 


GO TO 722 


DK160690 

' J.U 

IF l ASSCCOSG . G V) 7 1.1 * 7 IS 1 7 lb 


DK160700 

'll 

IF (COS A ) 7 13 * 71 2 f 7 1.2 


DK160710 

'12 

SlGMA=O.U 


DK160720 


CS1GMA=1 .0 


DK 160730 


GO TO 714 


OK 16 0740 

'13 

SlGMArPI 


DK160750 


CSiGmA=-1.0 


0K16Q760 

'14 

SS1GM A=U • 0 


DK160770 


1 SlGMAzO .11 


DK 160780 


GO TO 7*22 


DK 160790 

lb 

CSIGMA— COSA/SQKT ( CU5A**2+C0S6**2 ) 


DK 1608 00 


55iGMA=5vJKT ( 1 . 0— CSAGM A**2 ) 


UK160810 


lF(COSG) 716*717*717 


DK 160820 

16 

SS 1 GW a =-ss 1 GM a 


DK160830 

17 

CALL DVCHK (KOOOFX) 


DK 160840 


GO roi 7171 f 7171 ) *kOOOFX 


DK 160850 

171 

\ S l GM A =SS 1 GMa / C .S I GM A 


DK 160860 


CALL DVCHK (KOOOFX) 


DK160870 


GO 10(703*718) r KOOOFX 


DK 16 0880 

18 

SIGMA=ATAN (TSIGMa) 


□K160890 


iF ( CSIGmA) / 19 r /2u *720 


DK160900 

19 

SIGMA=SIGMA+PI 


UK160910 

20 

IF (SIGMA) 72 lr 722*722 


QK 160920 

2 1 

SIgMA=SIgmA+FI+Pi 


DK 160930 

22 

lF(NORiF.N> 723*209*723 


DK160940 

23 

UO 725 J=1*NSATP 


OK160950 


call SUN0H(S1NL( J) *COSL( J) .* S1.no (0) *COSO( j) * SINb *COSB * COSKS ( J ) * 

UK 160960 


lGAMM ( J ) *iMORIEN ) 


DK 160970 

2b 

CONTINUE 


DK160980 


find intersection of ellipsfs 


DK 160990 

2 J9 

IF ( Sun- 2, n) 21 0 * 19*9 * 199 


UK 161000 

10 

IF ( AbS(COSB)-. 01 ) lUOl *211*211 


DK 16101 0 

U 

AYe=ABS(kP/COSB) 


DK 161020 


b£E=Rp 


DK 161030 


bEESO=BEt*BF:t 


DK161040 


Cl- ( (CSIG mA*COSB> ** 2+SSlGMA**? )/bFESo 


DK 161050 


C2= (COSB»C0Sb-l . 0 ) *2. 0*B*SSIGMA*CSiGNA/BtFsQ 


DK 161 060 


C3- ( (SSI gmA*COSB ) ** 2+CSlGMA**2 ) * (B/BeF )**2 


DK 161070 

1 )U1 

If (LSHAUE ) 199*1002*199 


DK 161080 

JU2 

call find 


OK 16 1090 

99 

CONTINUE 


DK161100 


CALL INI 1 


UK 161 1 1 0 


KE ) URN 


DK 161 120 


ENb 


UK 16 11 30 
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FOR DECK 17 # DECK 17 

UK 170 000 


SUbROUT INE INTERP t PROP # TEMP # JX .» AnS ) 

OK170010 


PROP IS EEEl EPSILON) fRO(RHO) # OK SPtSPEC. HEAD 

DK 170020 


TEMP IS TEMPERATURE OF ELEMENT 

DK170030 


JX IS INDEX INDICATING WHICH COATING TABLE TO USE-OR 

SUBSTRATEDK 170040 


ANS IS EPSILON# RHO» OR CP - RESPECTIVELY 

DK170050 


DIMENSION PROP (8 #42 ) 

DK170060 


DO 16 1=1# 42 # ? 

DK170070 

\ 

IF l TEMP-PROP l JX# i ) ) 11# 13# 12 

UK170080 

i 

IF DEMP-PROP l JX#i+2> ) 16# 14# IS 

DK 1700 90 

2 

IF (TEMP-PROP l JX #1+2 ) ) lb# 14# 16 

DK170100 

J 

ANS=PROP( JX#x+l) 

DK170110 


RE 1 URN 

DK 170120 

4 

ANS=PROP( JX# i+3) 

DK 170 130 


HE i URN 

DK170140 

J 

ANS=PROP ( JX #1 + 1 ) + ( (PROP ( JX # 1+3 1-PROP ( JX# 1 + 1 ) ) * 

DK1701S0 


1 1 TEMP-PROP t JX# I) ) ) / (PROP ( JX # 1+2 )— PROP < JX# I ) ) 

DK170160 


RE f URN 

DK170170 

J 

CONT INUE 

UK 170 1 80 


RETURN 

DK 170 190 


LNb 

DK 1 70200 


FOR DECK 1 8 » DECK 18 

UK 180 000 


SUBROUTINE ARKOUI ( a»L8»NSATP) 

□K180010 


DIMENSION A (200) 

UK 180020 

1 

LO 20 J=1#L8 

DKl 80 030 


!4=10+J-y 

DK 180040 


NF=MIN0 ( 14+9# NS A IP) 

DK 180 050 

> 

WRITE (6# 70S) 14# IA-4KJ » K=I4#NF ) 

DK 180060 

ib 

F OKMAT ( 1 4X 1 4 # 2X 1 UF 1 0 . ? 1 

DK180070 

SD 

RE 1 URN 

UK180080 


END 

DK 180 090 



FUR UECK19 # DECK 19 

DK1900Q0 


PUNCH ON ARCUS ( C I 

DK 1900 10 


1 F l C ) 3 # 2 * 3 

DK190020 


ARCOS=90 *0 

DK 19 00 30 


ke iurn 

DK190040 

3 

ARCOS=ATAN<SuRT( 11*0/0 **2-1.07 )/. 01/453293 

DK190050 


IF ( C) 4 # 99 # 99 

OK 190060 

u 

aRC0S=18U . O-aRCOS 

DK190070 


UO TO 99 

UK 190 080 


ENu 

UK 190 090 


FuR U£CK?0 » UECK20 

DK200000 

SUBROUTINE GUART l A 4 # A 3 # A2 # A 1 # A u ) 

UKZQOOW 

U ImENS ION X (o ) » Y i 3 ) » U ( 4 ) # V ( 4 ) 

UK200020 

common x#y#u#v 

UK 20 00 30 

DIMENSION SC 48) 

UK 200 040 

SCll) =A4 

UK 2000 50 

SC l 2 ) =A3 

UK200060 

SC ( 3 ) =A2 

UK200070 

SC ( 4 J = A1 

UK2 00080 

SC15)=A0 

DK200090 

CALL DDF EH I < SCll) ) 

DK2G0100 

uO S J=l#4 

DK200110 
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K=J+J 

U(J)=SC( K-l) 
V(U)=SC(K> 
NET URN 
END 


QK2Q0120 

DK200130 

DK200140 

DK200150 

DK200160 


- FOR UECK21 * DECK21 

FUNCTION PHIPN( XNf YN p STEP ) 

DIMENSION TRASH 1 17 ) fF ( 10 p 9 p 42 ) f H f Ab ( 9 ) p ANG ( AB ( 10 ) pK*iH< 18) p XH<9) f 
1YH (6) fZH(6) fELL( 9> pRPP(9> pRR(9)#CAYY(9) p] I mE<2> 

DIMENSION DT<2*2U0> fT(2f200) pSINl(20u> #COSL(200) fSINO( 200) r 
1COSO (200 ) f THICK (200) f NCOAT (200) 9 NSUBS ( 200 ) fCGSRS( 200) »PHIT(200) f 
2GAMM(2G0 ) p NDuTY ( 200 ) 

D IMENSION ESUN (Sir EEE ( 8 p 42 ) p RO ( 8 f 42 ) p SP (8 f 42 ) f T© INT < 4 1 # 8 ) 
DIMENSION BUFFER (8) 

COMMON TRASHFFFH(AtiFANGTABFWh > XHFYHFZHFEU_FRPPfRRFCAYYfPlFPlHF 
1 TWOPI fPI 180 f NOF IND f NQORT f IFIRST » NE wSIG 

COMMON KPLNETfNORIENFKTEMPFNUMRUNfNSATPFNPKlNTFKREVFNPbnFREV 
COMMON A pBp C f AYEf BEEfRPf RNfPEE* EL f R f CAY p BARL f S p ALp2 f BET 2 p GAM2 f 
1 ALPHA 2 * BET A 2 f GAMMA 2 f COS A , COSB , COSG f SINB , PHI MAX 
COMMON SIGMA p CSIgMA f SSIGMA f TS IGMa 

COMMON PHI 22 f DPHI2 p PH I Z > DPHI p PHI p CPHI fSPH I f PHIN2 f PHOT? p SUN 
COMMON TIMEZf TAB sn FLAPS fZEITfTIMEf DELTA! p XP p YPpDEE pDPSQp J1 fU 2 
COMMON" EPTP4 p EPSIG2 f TM r FTM f SAS2 p SRAS h 
C OMMON G f KHRCP f RHO f CP f EPSLN f I TK p K I T EK 

COMMON ONETf OSAT f OiNT f QEXT p ©PL AN f ©ALB f©SUN f GOLD p ©NEW f T bREA* 
COMMON GAM p Ph IC p aLT p ALT I f ANGS f CTHE T f F Dp F F 
COMMON PHI 1 fPHI2f BUFFER 

COMMON COSLS f S INlS f UT p T p S INL f COSL * SINO fCOSO r 1 HICK p NCOAT f NSUBS f 
ICOSRSfPHIT fGaMM 

COMMON ESUN fEEEfKOfSPf TQINTfNDUTY p ANINC.L r ASCNOp p AsNLNG p RGTASC p 
lUECLIN 

DIMENSION AA 1 6 ) # AAi ( 6 ) # P ( 6 > r PI (6 ) 

COMMON AAfAAIfPfPIf IORDERf IORD1 p IERROP f THE! A p DTMAX pENI f EN f FACT f 
1 YNHAT p ENHATL p EM AO p DERROR p DTTEST 
ARGX=XN 
ARGY-YN 
PHIFN = 0*0 
nU-1 

iu fnk=fofxy (aroXf argt ) 

PH IFN-PH I F N + A A ( NU ) *F NK 
IF l NU-IOKDER ) II p 12 f 12 
NU=NU+1 

RASH=P(NU)*S1EP 
ARC X=XN+R ASH 
ARGY=YN+RASH*FNK 
GO 10 10 
HE (URN 
END 


DK21O0O0 
DK21O01O 
DK210020 
DK21O03O 
UK21O04O 
DK210050 
DK21O06O 
DK210070 
DK210080 
OK21O09O 
UK210100 
OK 2101 10 
0K21O12O 
DK210130 
DK210140 
DK210150 
UK210160 
DK210170 
DK21O180 
DK210190 
DK21O2O0 
DK21O210 
DK210220 
DK210230 
DK2l024n 
UK 21 0250 
DK210260 
DK210270 
DK210280 
DK210290 
UK21030O 
OK210310 
DK21U320 
QK21O330 
DK210340 
UK210350 
DK210360 
OK21O370 
OK210380 
DK2 10390 
DK 210 40 0 
DK210410 
UK210420 


FuR DECK 22 p UE CK22 

FUNCTION GFNIXpY) 

DIMENSION TRaSH (17) fF (10f9f 42) pH[Ab(9) f AinGTAB(IO) f WH(18) fXH<9) f 
1 YH ( 6 ) f ZH (fe ) p ELL (9 ) p RPP ( 9 ) ,RR (a) fGAYY(p) pTImE(?) 

DIMENSION DT(2#2UO)#T(2f200) fSINL( 200) fCOSL ( 200) f SINO (20 U) f 
1COSO120Q ) f THICK ( 200 ) f NCOAT (200) # NSUBS (200 fCOSRS(? 0O) tPHIT(200) » 
2 GAmM ( 2U0 ) p NDUTY (200) 

DIMENSION ESUN (8) fEEE(6f42) fRO ( 8 f 42) f SP ( 8 f 42 ) f TQINT ( 4l # «) 


UK 220000 
DK220010 
OK22O020 
UK220030 
UK22OO40 
DK220050 
DK 22 0060 
DK220070 



DIMENSION BUFFER! 8) 

COMMON TRASH rF fHT AB f ANGT AB f WH f XH , YHf 4H fELL , RPPf RRf CAY Y » PI fPIH, 

I T WOP I fPI 1-6:0 fNOFINO fNGORT f IFIKST f NEwSiG 
COMMON KPLNE 1 , NOR IENf K TEMP f NUMRUN f NSATP f NPKINT f KRF V f NPbO f REV 
COMMON A»B»Cf AYFrBtE»RPrRNfPfce»ECFR»CAYfbAKLfS,ACp2rbFT2fGAM2# 

1 ALPHA2 f BtT A2 r GAMMA2 f COSA , COSB f COSG f SiNB f P.HIW AX 
COMMON SiOMAfCSIOMA r SSX GM A f TS I GMA 

COMMON PH122fDPHa2fPHI2fDPHIfPHIfCPH1,SPHIfHHIN2fPH0T2fSUN 
COMMON T IMEZ F T AfiSF TEL APS , ZEI T f T IME f CELT AT f XP f YP f DEE f DPSG f DI f J2 
COMMON EP 1 P4 f EPS 1 G2 f TM f F TM , S AS? , SR ASH 
COMMON GfKHRCPfRhOfCPfEPSLNfITKfMTEK 

COMMON QnETfGSATfGXNTfQEXTfGPLAN, GALB, GSUN , GO l D f ©NEW f TBREAK 
COMMON GAMfPHICfALT fALTIf ANCSfCTHETfEOfFE 
COMMON PH H i PH 12 r BUFFER 

COMMON COSLS fSINl.S fOTf T f S INLfCOSl f SINOf COSO f THICK , NCOAT fNSUBSf 
ICOSRSfPHXTfGAMM 

COMMON ESUNfEEEfROfSPfTOINTfNOUTYfANINCLfASCNODfASNLNGfRGTASCf 
IDE cLIN 

DIMENSION AA<6) fAAU6) fP<6) fPI<6) 

COMMON AA f AA l, P, PI f I0RDER,I0RD1 f IERRuRf THETA fDTMAXfEN! fENfFACT, 
X Y NnAT F ENH AT L f EM AG f UERROR , DTTEST 
GFN-2 * 0*EPS I G2* Y**3 
KE I URN 
ENl) 


OK220O80 
DK220090 
OK220100 
OK220UO 
OK 22 OX 20 
OK22Q130 
UK 22 0140 
DK220150 
DK220160 
DK2201T0 
0K22G18O 
DK220l9n 
OK 2202 00 
OK220210 
DK 22 0220 
DK22Q230 
DK220240 
DK220250 
OK22U260 
DK220270 
DK220280 
UK220290 
DK220300 
DK220310 


FOR U E CK 2 3 f U E C K 2 3 

FUNCTION KOFXY(XfY) 

DIMENSION TRASH (17) ,F( 10,9,42) fH | AB(91 , AnGT AB < 10 ) ,wH(16) f XH<9) f 
lYHtb) »ZHlf,) ,LLU9) ,RPP(9) ,RR(9) fCAYY(Q) ,TImE<2) 

DIMENSION DT(2f2uO) f T t 2 f 200 ) f S XNl ( 20u ) fCDSL(200) fSINO<200> f 
lcObO(2UO) r THICK ( 20 U ) f NCOAT ( 200 ) f nSuBS ( 20 0 ) rCOSRS(?UO) fPHIT1200) f 
2GAMM (200 ) f NDuT Y ( 20u ) 

DIMENSION ESdN(8) fEEE<Bf42) fK0(8f42>fSP(Bf42) fTOINT (43 fB) 
DIMENSION BUFFER(ti) 

COMMON TRASHfFfHT AB f ANGT ABf WH ,XHf YHf fElL , HPP f RRf CAYYfPI f PI.H.f 
1 1 WOP 1 f P 1 X BO t NOF InD f NQOKT , I F IKST f NE wS I G 
COMMON KPLNET ,N0 KIeNfK TEMP fNuMRUNfNSATPfnPKINTfKRFVfNP50f REV 
COMMON a , H f C f a ye f BtE r RP f RN , PEE f EC f Rf C A Y f B AHL f S f ALP 2 F BFT2 f GAM2 f 
X alpha? , B tT A2 F GAMMA 2 f COS A , COSB , COSG , S INB f PH iMAX 
COMMON SIGMA,CSIGMA,SSIGMAfTS1GMA 

COMMON PHIZ? F DPH12 fPHI z F OPHI F PHI fCPHi,SPHTf HHINPf PHOT? F SUN 
COMMON TiMEZ, tabs f TEL APS, ZEITfTIMF ,D tl TA1 ,XPf YPfDFE,UPSOf JXf J? 
COMMON EPlP4,EPSiG2 , TMfFTM, SAS2 f SRASh 
COMMON G 9 RHRCP f RHO f CPfEPSLN f UK f K M ER 

COMMON QNETfOSATfQXNT fOExTf ©PLAN, 0ALb,QS0 N, GOLD# UNEWfTBREAK 
COMMON Gam f PHIC , AL j f alt I f ANGS , CTHE f , PD » FF 
COMMON PH1XfPHI?» BUPFFR 

COMMON COSLSfSINLSfUTfTfSINL,COSLfSINO,CoSOf1HICK,NCOATfNSuBSf 
XCOSKSfPHXT fGaMM 

COMMON ESlJN,tEE,KO,SPFTGINTFNnuTYF ANINCL f ASCNODfASNLNGfRGTASCf 
lUEcLXN 

DIMENSION AA l 6 ) FAAi(b) fP(6) fP1(6) 

COMMON AAfAA1,P,PIfI0RUERfIORO1f IFrRoFfThF IAfDTMaXfFnI fEN f FACT f 
X YNHAT f ENHATLf EMAg fDERROK , DTTEST 
POPXr=KHHCP*(QNEI+DlNT+0.5*EPSlG2*Y**li) 

RETURN 

END 


DK230000 
DK2300XO 
DK 230 020 
UK23Q030 
DK230040 
DK230050 
UK230060 
DK230070 
DK 23 0080 
DK230090 
DK230100 
DK230110 
DK 230X20 
UK230X30 
0*230140 
DK230X50 
DK23Q160 
DK230170 
DK230360 
DK230190 
DK230200 
DK2302X0 
DK 23 0220 
DK230230 
DK230240 
DK230250 
DK230260 
DK230270 
UK23G280 
DK230290 
DK230300 
DK2303X0 
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FOR UECK24,UfcCK24 

FUNCT ION UEL1 A ( XN , YN , S7 EP , FO ) 

DIMENSION TRASH U7) , F ( 1 0 ,9, 42 ) , Hi Ab(9) , ANGTAB ( iO ) , wH ( 18 ) , XH ( 9 ) , 

1 YH 16 ) , ZH ( 6 ) ,ELL(9) #HPP<9) #RR(9) ,CAYY<9) , TlME<2) 

DIMENSION DT(2,2uO) r T ( 2, 200 ) rSINL ( 20 U ) , COSH 200 )» S.I NO (200 ) » 
1C0SD7 200 ) f THICK ( 20 U ) , NCOAT < 200 ) , NSUBS (20U) ,COSRS(200) ,PHIT(2GO) f 
2 gAmM< 200 1 »NOUTY ( 200 ) 

DIMENSION ESuN<8) ,CE£ ( 8,42) ,KO (8,42) ,SP<8,42) , TQINT (43*8) 
dimension buffer is ) 

COMMON TRASHrFrHl Abr ANGTAB rWHrXHrYhr 2Hr ELL fRFPrRRrCA YYrP I rPIHt 
1 1 WOP I , P I 1 80 r NO F I NO r NQOKT , I F IKST r NE ttS I G 
COMMON KPLNE1 r NOR IEN r KTEMP , NuMRUN , NS ATP , NPH INT r KRF V r NPSO r REV 
COMMON A,B,C,AYF,BEE,RP,RN,PEF,EL*K,CAY,BAKL,S,ALP2,BET2,GAM2, 
lALPHA2rBE7A2rGAMMA2rC05A,C0Sb,C0SGrSlNBrPHIMAX 
COMMON SIGMA rCSIbMArSSlGMAr TSIGMA 

C OMMON PH I Z2 r OPH 1 2 rPH I Z , DPH I r PH I , CPH I r SPH I , PH I N2 # PHOT 2 r SUN 
COMMON 7 IMEZ , T ABS , I EL APS r ZEIT , T ImE , DEL T AT , XP * YPrUEE r DPSQ , J1 , J2 
COMMON EP I P4r EPSIG2 r TM,FTM,SrtS2 f SRASh 
COmMON G r RHRlP r RhO r CP r EPSLN , ITK , Kl 7 FK 

COMMON OnET r oSAT r QIN7 r QEXT f OPL AN , OALB , GSUN , QOLD » GNEW , TBREAK 
COMMON GAMrPHlCr ALT# ALT I r ANGSrCTHEl ,F'0,FF 

common phi i r phi? # buffer 

common COSLS rS INLS , UT f 7 r S INL r COSL , SINOrCOSOr THICK , NCOAT , NSuBS# 
ICOSKS r PHI7 rGAMM 

COMMON ESUN r EEE r rO , SP r 7 G I NT , NDUT Y » AN INCL r ASCNOU * ASNLNG r RGT ASC r 
lOELLlN 

DIMENSION AA ( 8 ) ,AAI(6> ,P(6> ,P1 (6) 

COMMON Art r AAl r P r PI r I ORDER , IOKOl f TERROR , THFT A r OTMAX r EN1 rENr FACT , 

1 Y NHAT r ENhATL r EMAG r UEKRORr DTTEST 
STlP1=5T{£P*0.S 
F IePHIFN ( XN r YNr STEP!) 

XNI=XN+STEP1 
YNi=YN+STEPl*Fl 
F2=PHIFN( XN1 r YN1 rSlEPl ) 

UElT A=STEP1* IF1+F2 )— F0*STEP 

RE 1 URN 

END 


DK240000 
DK240010 
DK 24 0020 
DK240030 
DK240040 
DK240050 
OK240060 
OK240070 
DK240080 
DK240090 
DK240100 
DK24Q110 
OK240120 
DK 24 0130 
DK240140 
DK240150 
DK240160 
OK240170 
DK 24 01 80 
DK24Q190 
DK240200 
DK 24 02 10 
DK240220 
DK240230 
DK240240 
DK240250 
DK240260 
DK240270 
DK24Q280 
DK240290 
OK240300 
DK240310 
DK240320 
DK240330 
DK240340 
DK240350 
DK240360 


FOR UECR26* DECK 25 

SUbROUT INE ERROR (STEP r FO ) 

DIMENSION TRASH (17) rF( 10,9,42) r Hi AB (9 ) , AnGI AB < 10) ,wH(18) ,XH(9> , 
1YH(6) rZH(F) , ELL ( 9 ) , RPP ( 9 ) , RR (9 ) t.CAYY ( 9 ) ,71 MET?) 

DIMENSION DT t 2 r ?UO ) * T (2 , 200 ) ,SINL(20U) , COSL ( 200 ) rS INO (200 ) r 
1COSO(200) r THICK (20u) r NCOAT (200) rNSUBS(20U) »COSRS( 200) * PH IT (200) r 
2GAMM(2U0) r NDUT Y( 200) 

DIMENSION ESuN(8) , EEE (8,42) »RO ( 8 ,42 ) * SP ( 8 ,42 ) , TQINT (41*8) 
DIMENSION BUFFER (8) 

COMMON TRASH , F , H | Ab , ANGTAB , WH ,XH , YH , ZH , E lL , RPP , RR , C A YY , PI , P IH , 

1 IWUPi,P1180,NOFlND,NQORT,IFIKSTfNEttSIG 
COMMON KPLNEl , NOR IEN , K TEMP , NUMRUN, NS ATP , NPR INT , KRF V , NP50 , REV 
COMMON A,B,C,AYF,BEE,RPrRN,PEE,ELfR,CAY,faARL,S,ALP2,BFT2,GAM2, 

1 ALPHA? , BeT A2 , GAMmA 2 , COS A , COSB , COSG , S I NB , PH I MAX 
COMMON SiGMA,CSIgMA,SSI6mA, tsigma 

common Phi Z2 , DPH 12, PHIZ , DPH I , PH I , CPH I , SPH I , PH IN 2 * PHOT 2 , SUN 
COMMON T IMEZ, TABS, 1ELAPS,ZEI7 ,T iMiE, DEL TA7 , XP, YP, DEE , DPSQ » Jl , J2 
COMMON fc.pl P4 , EPS 102 , TM f FTM , SAS2 t SRrtSh 
COMMON G , RHRlP , R hO , CP , EPSLN , I T K , K I TER 

COMMON ONt T , OS AT, Q I NT , OEXT , QPLAN , QAL B, QSuN , GOLD# GNEW , TBREAK 
COMMON GAM,PHIC, AH ,ALTI , ANGSrCTHEf ,FD,FF 


OK2SOOOO 

DK250010 

DK250020 

DK25003G 

DK250040 

DK250050 

QK250060 

DK250070 

0K250O80 

DK250090 

DK250100 

DK250110 

DK250120 

DK250130 

DK250140 

DK250I50 

DK25Q160 

DK250170 

DK250180 

DK250190 

DK250200 
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COMMON PHI 1 pPHI 2 p BUFFER 

COMMON COSLS»SlNLSfPT,TfSINLrCOSL»SINO,COSOf THICK rNCOATtNSURSr 
lC0SRSfPH.1T r GAMM 

COMMON esuN f LEE f RO p 5P p TO INT p N0UT Y t ANINCL p ASCNOD fAsNLNG , RGTASC # 
iUEcLIN 

DIMENSION AA(6) p AA i (6) f P ( 6 ) p PI ( 6 ) 

COMMON AArAAifPrHlf IORPERflORDlf IFHRORf THETA fOTMAXfENlf ENf FACT r 
1YNHAT » ENHATLf EMAof DERRORf OTTEST 
1LAST=TIME(J1) 

7J=T(J1p1) 

DTIM£=STEP 

C HENKICI ERROR FUNCTION. 

CO TO (If It 3) t IEKROR 

1 DEl=OELTA ( TLAST p T Jf STEP f FO } 

2 UEkROR = — ( <1 HET A/UTMAX ) *♦ IOKDER ) *OEL*FACT*THFT A 
EN=EN* ( 1 . 0+DT IME*GFN ( TLA ST , TO) ) +DERROR 

5 RETURN 

END 


DK250210 
OK25022O 
DK250230 
DK250240 
DK250250 
DK250260 
DK250270 
PK250280 
0K250290 
DK250300 
DK250310 
DK250320 
DK250330 
DK250340 
DK250350 
OK250360 
OK 25 03 70 
DK250380 


b 


4 


b 


C 


FuR UECK26 r UECK26 

SUbROUTIiMt GtOEAClFAC) 

DIMENSION TRASH (17 > #F< 10,9,42) ,HTAB(9> f AN6TAB ( 10) , WH(18 ) t XH ( 9 > p 
1>H ( 6 ) fZHl6).ptLL(9) fRPP.(9) fRR (9) f CAYY (O ) , T IME (2) 

DIMENSION DT(2f 2U0) rT<2f200 ) pSINl(20U) pCoSl( 200) rSXNO(200) f 
1COSO (200 )t THICK (20U) r NCOAT ( 2UO ) i NSURS ( 20U ) f COSRS ( ?00 ) f PHIT ( 200 ) p 
2GAIVIM ( 200 ) t NDUTY ( 20 0 ) 

DIMENSION ESUN(B) ptEE(tif42) f KO ( 8 f 42 ) f $P ( 8 f 42 ) p TO lNT ( 4l f 8 ) 
dimension buffer ( iu ) 

COMMON TRASH f F f H I AB f ANGT AB f WH , XH , YH r 2H? ELL 9 HEP f RK , CAYY 9 PI f P IH f 
11 WUPl f PI180 f NOF InD fNQORT 9 1FIRST f NEwSIG 
COMMON KPLNE 1 f NOR I EN f K TEMP f NUMRUN f NS ATP 9 NPR INT f KRE V f NPSO f REV 
COMMON A p B p C f AYE 9 BEE p RP p RN , P£E p EL p O p CAY 9 b ARL 9 W 9 ALP2 p BET2 p GAM2 9 
1ALPHA2 f BET A2 p GAMmAZ p COSA , COSB , COSG , SlNB 9 PH I MAX 
COMMON SIGMA f CS I GMA f ss igm A f TS igma 

common PHlZ2pDPHi2pPHrZp0PHIpPHIpCPHIpSPHlpPHIN2ppH0T2f SUN 
COMMON T IME? p TABS f I EL APS p ZE IT , T IME p DELT AT p XP p YP p DEE p DPSQ p J l p J? 
COMMON EPTP4 9 EPSlG2 9 TM p FTM 9 SAS2 t SR ASH 
COMMON GpRHRCPp RHO pCPp EPSLNp ITK pKITEK 

COMMON QNET P OS at p Q1NT p GEXT p GPL AN 9 G ALB , GSUN p GOLD f GNEW p T BREAK 
COMMON GMMpPhlCf ALT pALI I p ANGS p CTHE T p FO pFF 
COMMON BUFFER 

common COSLSp SINlS pDTp TpSINLpCOSLpSINOpCOSOpTHICKpNCOATpNSUBSp 

ICOSRSpPHU pGaMM 

COMMON ESUNpEEEpKOfSPf TGINT p NQUTY rANlNCLp ASCNOD fASNLNG p RGTASC p 
1DECHN 

DIMENSION R(b) #0(4) fP( 2 ) pS(2) 

CAm30=GAm/30 .0 

NG30=GAM3U 

CN30— NG3U 

CF=GAM30-GN3u 

P3u=PHIC/3Q.U 

inP30=P30 

PN3U=MP3U 

PF=P30— PN30 

IF (NP30— b ) 6 p 4 p 4 

NP30-5 

PF-1.0 

NPbl=7*Nc30+NP30+l 

IF T AHLF.S FOR ZERO H ARE USED, DO 0=2 p 9 


DK260000 
DK260010 
DK260020 
DK 26 00 30 
DK260040 
DK260050 
DK260060 
DK260070 
DK260080 
DK260085 
DK 26 0090 
DK260100 
DK260U0 
DK 260120 
DK260130 
UK 260 140 
DK2601S0 
DK260160 
DK260170 
DK260180 
DK260190 
DK26G200 
DK260210 
DK260220 
DK260230 
DK260240 
DK260250 
DK260260 
DK260270 
DK260280 
DK 26 02 90 
DK26030P 
OK260310 
DK260320 
DK260330 
DK 260 340 
DK260350 
DK260360 
DK260370 
DK260380 
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r r 


lu 

7 

li 


13 
12 

14 


Id 


id 


2U 


22 

2b 

2o 

2 < 

99 

100 

yo 

998 

999 


bi 


62 

bO 


DO 10 J=3#9 
NHSJ-'l 

if t NT AB ( D ) -'AlT ) 1 0 # 7 # 7 
CONTINUE 

HF~ ( ALT--HT AB ( N.H ) ) / (HTAB( NH+1 )~HT aB VNH ) ) 

DO 13 J=2#10 

ANoUrAiNGS 

NA-J-1 

IF ( ANG TAb ( J)-ANGU) 13# 12 p 12 
CONTINUE 

AF = ( ANGU-ANG I AB ( NA ) ) / ( ANGT AB < N A+i ) - AlNfTAb ( NA ) ) 
DO 2 b J J— 1 #2 

F'jZi vJvJ” 1 

K-lNPSl +7*N 

DO lb L=l#2 

KL-K+L-1 

LM=(L-1)*4 

K ( LM+1 )=.F (NA#NH*nD 

K ( LM+P ) =F { NA # NH + A # KL ) 

K<LM+?)=h ( N A + 3 #Nti*f\L) 

H ( LM+4 ) =F { NA+1 * Nh+i t KL) 

DO lb 0=1*4 
K=o+J 

Hi J)=R(K-1)+NF*<KU>-R(K-1-) ) 

DO 20 J = i *2 
K = «J+U M 

R( J ) =0 (K-l ) +AF* < 0 ( l\ ) — 0 (K-l) > 
b<oJ)=R(i>+Rl-*<Pt2)-H< 1) ) 
if(NPSl-3b) 25*?2#22 
S ( 2 ) =0 ♦ 0 
DO 30 2b 
CO Ail XMUh 

F Ac=b ( 1 ) +Gf * l 5 ( 2 ) “b ( 1 ) > 

1MALT-HI AB(9) ) 27*27*98 

if (COST AnG5*PI18u)+.6428) 98*98 *99 

if If AC ) 98*100* loO 

IF U.O-f AC) 998*999*999 

f AC = U • 0 

DO TO 999 

h Au = l ... 0 

ht | URN 

LNu 


OK260390 
DK 26 04 OP 
DK260410 
DK260420 
DK260430 
DK260440 
DK260450 
DK260460 
DK260470 
QK260480 
DK 260490 
DK260B00 
DK 2605 10 
DK260520 
DK 26 OB 30 
DK260540 
OK260550 
DK260560 
DK260570 
DK260580 
DK260590 
DK260600 
DK 26 06 10 
DK260620 
DK260630 
DK260640 
DK26U650 
DK26066O 
DK260670 
DK260680 
0K26Q690 
DK260700 
DK260710 
DK260720 
DK260730 
DK260740 
DK260750 
DK 26 0760 
DK260770 
pK 26 07 80 
DK 26 0790 
DK 260 BQO 


FoR DECK27*uECK27 

bUbKOIlTIiVt Oi IMlsKpl-LfW) 

DIMENSION T 0 i NT ( til *8) * TRASH ( 7818 ) ;#*•( ( ) 

COMMON TRASH, JOINT 

L=lL 

R=1\K 

ifVL) bl #61 rb? 

IF L-0 * TABcfc ENTRIES ARf CLEARED 
I OiN 1 < 1 *K )= 0* 0 
J OIN I (41 #K) = *0 
DO TO 99 
I (UNI <41 #K > = 2. 0 
DO 63 J=l#7 
HUNT ( J#N)=VU J) 

if L=lt2 -OK 3# NO MOKF CaRuS ARF R£AU 
IF L IS LARoER# READ MORE CmRuS 


QK270000 
DK270010 
DK270020 
DK27U030 
DK270040 
DK 270 050 
DK 27 0060 
DK270070 
DK270080 
DK270090 
DK270100 
DK270110 
DK 270120 
UK 270 130 
DK270140 
DK 270 150 
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IF (3-L) 64 t 99 f 99 

64 READ (5? 6b > < I QIM | ( 2*J# K ) # TQINT (2* J+l r K ) f J= 4»L ) 
99 TGlNl (2*L+2fK)=lUOUOOOOO.O 
WRITE (U)KfLf (TGINT 
KE 1 URN 

fab FORMAT ( 2X6F8 • 2 f 2F lb • 2) 

ENL) 


DK270160 
DK270170 
DK270180 
DK270190 
DK270200 
DK27U210 
DK 270220 


t 


C 

C 


FOR UECK28 f UECK28 

SUBROUTINE DUVETA IC# RTf MTYPE) 

DIMENSION C(a)i kT ( 3) f X ( 2 ) 

I HE FOLLOWING STATEMtNMS) HAVE BEEN MANUFACTURED BY THE TRANSLATOR- 


DK 2 AO 000 
DK2A0010 
DK 280020 
-DK28Q030 

DK 280 040 


double precision 

c 

f PT 

F X 

f A 

f a 

UK280050 

uOUBLF precision 

u 

F R 

f USGRI 

F CoRtCT 


OK 2« 0060 

UOuBLF PRECISION 

PHI 1 

f DATAN2 

f POD 

f FXPO 

F DLOG 

DK 280 070 

DOUBLE PRECISION 
DO 10 L=2f4 
10 C(l)=C(L)/CU) 

DEXP 

f ncos 

f DSIN 

f CLOD 

r PLOD 

DK28U080 

DK280090 

DK28Q100 


A- l 3 * 000 * 0 ( 3 ) -C < 2 ) ** 2 ) / 3 . GDG 

b=(2*0p0*(C(2> )**3-9.0U0*C(2)*C<3)+?7.0Du*C<4) )/27.0Qn 
u=b**2/4.oD0+A**3/27. OOU 
IF (b ) fau 0 f 700 f fau 0 
?0O IF (APS(A)-.uOl) 12 f 12 f 300 

300 lF(AbS(Q)-iO.O**(“ib>*b**2/4.0) I2 f 300 f 3u0 
iOU IF <U) 11 F 12 F 13 

12 ivtT THt=U 
00 TO 14 

13 HTYPE-l 
60 1 0 lb 

11 MrPE=-l 
6 =DABS( 0 ) 

R -DSORliO) 

C0RECT=-B/2.uD 0 
PHil=DATAN2(K,C0KEvl ) /3..OD0 
POD =DSORT (R**2 /h.UU0+Q) 

IF (POD) 73 f 70 f 73 
70 X(I)=n ,000 
X ( 2 ) — 0 • ODO 
60 TO 17 

73 EXPO=<ULo 6 (PuOi )/ 3 . 0 D 0 
FOu=UFXP(EXPU) 

X(JL> = POD*OCOb ( PHI l ) 

X( <d)= POUNDS IN (PHI 1 ) 

60 TO 17 

14 POu— — P/2 • ODO 

IF (POD) «3f 80 f 83 
80 X ( 11 =0 . OUU 
60 TO 84 

83 tXP 0 =(pLO 6 ( Dabs (POD) ))/ 3 * 0 D 0 
X( 1 )=(P 0 U /DmHS(POu) )*UFXP(FXPO) 

84 K 1 (1 )=2.UU0*X( 1 ) 

RT(2) =-X(l) 

kT (3)=RT (2) 
t.o To I9y 
lb 6=uS0P)(o) 

CLuU— — B/«d • ODu+Q 
PLoU=CL0U-2. 000*^1 
IF (CLOD) 96 f 95 f 96 
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or on 


9b XU)=0.000 
60 10 97 

9b EXP0=(DL0 G(DaBS<CL 0U) ) )/3.0Du 

X( i)=< CLOD/DABS (CLOU) )*DEXP(EXP0) 

97 IF (PLOU) 9it 90 r 91 
9U X(2)=0.0UO 
00 TO 16 

91 tXP0=(DL0G( DABS (PLOU) ) ) / 3 . 0D0 

X ( 2 ) = ( PLOU/DABS ( PLOU ) ) +UEXP ( t XPO ) 

16 KT(1)=X<1)+X(2)-0(2)/3.0DO 

KT(2)=-.bOD0*(X(i)+X(2) )-C(2) /3.0DU 
KT(3)= .86602b4037844385DU*(X(l )-X(2) ) 

HE i URN 

17 KT ( 1 ) =2 • UUO*X ( 1 ) 

KT (2)=-X (1 )+X(2)*1.732050807b688?700 
KT (3)=-X(l)-X(2)*1.732U50807b688/700 

199 UO 200 L=l»3 

200 KT(L)=RT ( L ) -b ( 2 ) /3 . 000 

18 KEIUKN 
ENU 


DK280510 

DK280520 

UK280530 

0X280540 

DK280550 

DK280560 

DK280570 

DK280580 

DK280S90 

DK280600 

UK280610 

UK280620 

DK28U630 

UK280640 

0X280650 

DK280660 

0X280670 

UK280680 

UK280690 

DK280700 


FoH DECh29,UEuK29 

SUBROUTINE DUFERi (SC) 

DIMENSION C ( 8 ) * A ( 4 ) f Y ( 3 ) 

DIMENSION SC (8) 

f HE POLLOWINb STATEMENT C S > HAVE bFEN MANUFACTURED BY THF TRANSLATOR—?. 


OOUBLF 

PRECISION 

C 

f 

A 

9 

Y 

» CLOU 

, PLOD 

OOUbLE 

PRECISION 

P 

9 

Q 

9 

R 

» U 


UOUbLF 

PRECISION 

b IGA 

9 

D.SORT 

9 

UTSCl 

» OISC2 

, ABSZ 

uOubLE 

PRECISION 

CORFCT 

9 

PHI 

9 

UATAN2 

9 DCOS 

, OSIN 

UOUBLF 

PRECISION 

2AP 

9 

ZSQREl 

9 

2SQRE2 




DIMENSION C(b)f A (4) , Y ( 3 ) 

DIMENSION SC (8) 

UO 400 L— 1 t 5 
40U C(l_)=SC(L) 

UO 401 L~9 # 1 b 
401 C ( L ) — 0 • 0 

A(1)=1.0U0 

CLUU=.25UU0*t ( 2 ) / C ( 1 ) 

14 if (C(2) ) 10U, lUl# 100 
100 PLuU=C(l)**2 

P=c(3)/C (1 )-.375uO*(C(2) **2)/PL0u 

u=C( 4)/C(1)-.500*(C(3)*C(2) )/(PL0D )+,l2SD0*( (C(2)/C(l) )**3) 

k=( ( C (2 ) **2 ) *C ( 3) )/(16.0D0*(CU)**3) )- ( 3, 000* ( C ( 2 ) **4 ) )/(2S6.0D0* 
1C( 1 ) **4) )-.25Du*(C(4) *C(2) ) /PLoO+C ( F ) /C ( 1 ) 

102 A ( 2 ) — — P 

A(3)=-4.UU0*K 
a(4)=4.0UU*P*P-Q**2 
CALL DUVlIA (A,Y, M 1 YPE ) 

IF (MTYPE) IS r lb> 16 
lb U=Y(1) 

UO 666 L=2»3 

iF ( U-Y ( L ) ) 76 * 6 o 6 » 666 

7b U=Y (L) 

066 CONTINUE 
CO TO 21 

lb IF (Y (2) ) 27 U r 2/1, 270 
271 iF (AbS(Y (3) )-10.u**(— 7) ) 272 r 17, 17 


DK290000 
DK290010 
UK290020 
DK290030 
-DK29004P 
OK290050 
UK290060 
DK290070 
0K29Q080 
DK290090 
DK290100 
UK290110 
DK290120 
DK290130 
UK29Q140 
UK290150 
DK290160 
UK29017O 
DK290180 
UK290190 
UK290200 
UK290210 
UK290220 
(DK290230 
0X290240 
UK290250 
UK290260 
UK 290270 
UK290280 
0X290290 
DX290300 
0X290310 
UX29U320 
0X290330 
0X290340 
0X290350 
UK290360 
0X290370 
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*72 Y<*) = O.OUO 
Y (3)=O.OUU 
GO TO lb 

*70 PLOD = PAHS (7 ( 3 ) / Y ( 2 ) ■) — 5 • 0 D— 7 
IF (PLOD) UU 18* 17 
17 u=y(D 
GO TO 21 

IB PLOD— Y ( 1 ) — Y ( * ) 

IF ( PLOD ) 20 r 17, 17 
2U D=Y(*> 

21 PLoD=U-P 

IF (ARS<HLOD1-10.G**(-10)) 200 f l50r 150 
1 bU bl0A=DSQKT (Pl-OD) 

UISCI-BI GA***-2.oUU*U+2. 000*0/8 lb A 
D I SC 2=0 I SC 1 — 4 • 0 D U * O / B I G A 

IF IABS<DISC1)-1U.U**<-15) ) *04 1 2 U5f 20b 
*04 U1SC1=U.UU0 
*0b IF (DISCI) 24 f 2*» 23 

22 C (2) =0*000 

C (1 )=-.bODG*BlGA 
C l 3 ) =C VI ) 

C l 4 ) =0 • ODU 
00 TO 2b 

23 DISCl=DSoHT (UISC1) 

C U )=.bODU*<DlSol-RlGA) 

C 12) =0. ODU 
C { 4 )=U • ODU 
C ( 3 ) = C 1:1 ) -DISCI 
OO TO 2b 

24 C( 1 )=-. 5000*816 A 
C (3) = C (1) 

PL0D=DABS (DISCI ) 

bit) “.bODU*USoKI (PLOD) 

CU) =-C ( 2 ) 

2b IF ( ABS (..DISCS.) - 1 0,U**(-lb) ) ?10 f *3 ±, 211 
*1.0 UISC* = U.UUU 
*11 IF (DISC*) 2b* 2 o f 27 
2b b ( 6 ) =U • ODU 

C (8)= C (b) 

C ( 5 ) = # bUDu*H IG A 
C (7)= C (5) 

00 TO 29 

27 DIsC2=DSwKT(DISC2) 

b (6) =u . UDU 

d ( b ) = . bODO* ( CUSG2+B IGA ) 

D ( 8 ) =U • ODU 
0 (7) = C l b ) — u ISC2 
00 TO 29 

2b o (S)=.bODU*bIbA 
C ( 7 ) = C (h) 

P L u U = 0 AH S (.01 SC 2 ) 

O 46)=.b0pU*DSoKI (PLOD) 
bib) — -C ( b ) 

29 LO 30 L — 1 , 4 

b (?*L-1)= C ( 2*L- 1 ) -CLOD 

30 COuT i'NUfe 

DO lb6 L = 1 f 8 
ibb SC ( L )=C(L) 

HE I URN 

101 P=C(3) /CI1) 


UK290380 
DK290390 
DK 290400 
DK29U410 
DK 290420 
DK29043O 
DK290440 
UK 29 04 50 
UK290460 
DK 290470 
DK290480 
DK 290490 
DK290500 
DK.2-905.10 
DK290520 
DK 290530 
DK 290 540 
DK290550 
DK290560 
DK290570 
DK290580 
DK 290 590 
DK 2 9 06 00 
DK29Q610 
UK290620 
DK29U630 
DK290640 
DK290650 
UK290660 
DK290670 
DK29G680 
DK290690 
DK290700 
UK290710 
D K29U726 
DK 2 90 730 
DK290740 
DK290750 
DK290760 
DK 290770 
DK 290780 
DK29Q790 
DK290800 
DK290810 
DK 290820 
DK290830 
UK290840 
UK290850 
DK 290860 
DK290870 
DK 29 0880 
QK 290890 
UK29Q900 
DK290910 
DK290920 
DK 290930 
DK290940 
DK290950 
DK29U960 
DK29Q970 
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U=b ( 4 ) /C ( 1 ) 

K=L(b) /C(l) 
bO Tu 102 

2 0U PLuD— P**2— 4 • Ut)U*K 

JL-F ( ABS ( PLOD ) —1 0 • 0** ( — 15) ) P.01, 20 12# 202 

201 PLUD=0,0UU 

202 IF (PLOU) 205# 3u0# 500 
205 ABb2=0SQKt (P**2-PLOU)/2.QDO 

C0kECT=-P 

PHi =OATAN2(USGRi (-PLOD) #CORtCT) 
LU)=ABS2*DCUS(Pp1) 

L(2)=ABS2*DS1N(PH1) 

L(5)= CC1» 

C ( 4 ) — — C (2 ) 

L(b)=-C< 1) 

C to ) - C (2 ) 

C(7>= C ( b ) 

C(o)=-C(2) 

00 10 29 

500 2AP=US0K i (PLOD) 

2SuRtl=.bUD0*(-P+ZMP) 

2b0Kt?=2b0KE 1-ZAP 

JLf (ZS0RL1) 501# 3U2# 502 

501 0(2)=DS0Kl (-2S0RLD 
L (4)=-C (2) 

C U) -0.000 
0 (5)=0 # 0UU 
oO 10 31 U 

502 0(1 )=nSQK) (ZbQRFjL ) 

0(5)=-C(l) 

o( 2 )=n.ouu 

0(4) =0.000 

530 iF ( ZSORfc.2 ) 303# 3U4# 304 

503 0(to)=OSQKl (-2 SQRo2) 

C(o)=-C(o> 

0 ( b ) =0 • ODU 
0 ( 7 ) -0 *UUU 
00 TO 29 

504 0(b)=D5ORl (7SQRF2) 

0(7) =-C ( b ) 

0 ( t> ) — 0 • U L) 0 
0 ( O ) =0 . ouu 
00 TO 29 
t.NU 


0K290980 
DK290990 
0X291000 
0X291010 
0X291020 
DK291030 
0X291040 
OK291050 
DK291060 
DK291070 
DK291080 
DK291090 
OK29HOO 
DK291110 
DK29H20 
DK291130 
0X291140 
DK291150 
0X291160 
DK291170 
DK291180 
0X291190 
DX291200 
0X291210 
OK291220 
DK291230 
UK291240 
0X291250 
0X291260 
0X291270 
0X291280 
DX291290 
0X291300 
DK 291310 
0X291320 
0X291330 
0X291340 
0X291350 
0X291360 
0X291370 
0X291380 
0X291390 
0X291400 
0X291410 


L 

L 

L 

t 


110 

111 

112 


FOK UECK30#UfcCK30 
SUbKOUT I fit. IaBLF ( DAT A # MX # MM ) 

: Mw IS NUMBER OF COATING MATERIALS ( OR SUBSTRATE) 

U A 1 A IS RO FOR KHO# SP FOR SPEC. HFAI# AND tFE FOR 
MX— u DESIGNATES SUBSTRATE TABLE 

MX.= 1 OE SI.bN.AlES COATING I ABLE 
DIMENSION O A 1 A ( 8 # 42 ) 

MSfriM 

Rl-1 

KL=Kl+5 

KEaU ( 5 # 2u 1 ) (DATa(M#K) # K rKlfKL) #L0uEi f C0uF2 
if (DATA (Mr KL-5)-lOUOO.U) HI #1 15# 11b 
IF (DATA ( |v l #KL-3)-lOUOO .O) 112 #116# lib 
1 F ( U A T A ( »wi f XL— 1 ) — 1 0 U U 0 , U ) 113 #117 #117 


DK300000 
DK300010 
0X300020 
EPSILON 0X300030 
0X300040 
DK300050 
0X300060 
0X300070 
0X300080 
0X300090 
0X300100 
0X300110 
0X300120 
DK300130 



113 

114 


1 15 


116 

117 

118 

.119 

120 

121 

122 


aui 

aoa 

au3 

2u4 

2u6 


IF ( KL-42 ) 1 14 r 118# 121 

M=Kl+6 

KL=Kl+5 

GO TO 110 

DAI A (Mr42)=DATA (Mr KL-4) 

NK=KL-3 
GO TO 11b 

DAI A(Mr42)=DATA(MrKL-2) 

NK=KL~1 
GO TO lib 

U A 1 A ( M r 42 > =DAT A ( M r KL ) 

NK=KL+1 

DA I A (Mr 41 > =10000*0 

IF ( MX ) 121 r 1 19 r 12U 

WRITE ( 6 r 202) Mr CODEl r C0D£2 

GO TO 122 

wR 1 TE ( 6 r 203 ) M.r CODE 1 r COL>E2 
GO 10 122 
WRITE (6 r 2 04) 

COM INUE 

WRITE ( 6 r 206 ) ( DA I A ( Mr J > r J=lrNK> 

RETURN 

FORMAT ( 6E12 *tt r A6 r A2 ) 

FORMAT (20HOSUBSTKA IE MATERIAL I2r4H IS A6rA2) 
FORMAT ( ldHOCOATlNG MATERIAL l2r4H IS A6rA2> 
F0KMAT(20H ERROR IN INPUT DATA) 

FORMAT ( 1P6E lb , 7 ) 

ENu 


DK300140 
UK300150 
DK300160 
DK300170 
DK300180 
DK300190 
DK300200 
OK300210 
DK300220 
DK300230 
DK3 00240 
DK 30 02 50 
DK 30 0260 
DK 30 02 70 
DK300280 
DK 3 00 290 
DK300300 
DK300310 
DK300320 
DK300330 
DK 3 00340 
DK 30 0350 
OK300360 
DK300370 
DK300380 
DK 30 0390 
DK300400 
DK 30 04 10 


* FOR UECK31 r DECK 31 

SUBROUTINE MAIN2 

CPlTP IS THE MAIN PROGRAM Of LINK 2 (PLOT ROUf INE5) 

D ImENSION TRASH (.17 ) rF< 10 r 9 r 42 > r H VAB ( 9 > r ANGTAb { 10 ) , wH.( 18) rXH(9) r 
1 T H ( 6 ) rZH(6> r ELL ( 9 > r RPP ( 9 ) r RR (9 ) r CAYY ( 9) r TOME (2) 

DIMENSION :DT ( 2r 200 ) r T ( 2r 200 ) r S INL ( 20U > # COSL (200 > # 5IN0 ( 200 > r 
1COSO (200 ) r THICK ( 200 ) r NCOAT (200 ) r NSUBS ( 200 1 rCOSRS(?UO) r PH IT (200) r 
2GAiviM(200) rNDUTY(20U) 

DIMENSION ESuN ( 8 ) #EEE(8r 42) rKO(8t42) rSP(dr42> t TQlNT (4-1 r8) 
DIMENSION BUFFER ( 2 ) 

COMMON TRASH r F r H I ABr ANGTAB r WH r XH , YH rZh rELL r RPP r RRr CAY Y r PI rPIH , 

1 1 WOPi f PI 180 r NOF IND r NQORT r IFIRST r NE wSlG 
COMMON KPLNET r NOR I t.N r KTEMP rNUMRUN r NS ATP r NPRlNT r KRF V r NP50 r REV 
COMMON ArBrCr AYFrBEErRPrRNrPEFrELrKrCAYrbAKLrSr ALP2rBFT2rGAM2r 
1 ALPHA? r BbT A2 r GAMmA 2 r COSA , COSB , COSG r S1MB r PHI MAX 
COMMON SlGMArCSIGMArSSlGMArTSIGMA 

COMMON PHlZ2r0PHi2rPHI2rDPHlrPHIrCPHlrSPHIrPHTN2rPH012rSUN 
COMMON TIMEZrTABSr I -EL APS r ZE I T r TOME r DEI TAT r XP r YP r UEE r DPSOr Jl r O? 
COMMON EP IP4rEPSlG2r TMrFTMrSASgrSRASH 
COMMON G f RHRCP r RHO r CP r EPSLN r IT K r KI TEH 

COMMON GNtTrGSATrGlNTrQEXTfGPLAN,GALB,QSUNrQOLOfQN£WrTBR£AK 
COMMON GAMrPHICr «U r ALT I r ANGS r CTHEl r pD r FF 
COmMON PHIl»PHI2r IbIGrFUDGEr T4r JuDGErBUFFFHrRVrNLlNF 
COMMON COSLS r SINLS r UT r T rSI NL r COSLr SIlMO rCoSOrl HICK r NCOAT r NSUPSr 
ICObRS r PH 1 1 rGAMM 

COMMON EbUNrLEEr KOrbPr TGINTr NDUTYf ANiNCLr ASCNODr ASNLNGrRGTASCr 
IuElLIN 

DIMENSION AA(6) r AAK6) rP(6) rP0(6) 

COMMON AA r AAir PrPOr IORDERr IORD1# IFRRORrTHFTAr DTMAXrF.NI r FNr FACT f 
1TN.HA I r ENhA TL r EM AG * UERROR r DTT EST 


DK310000 
UK310010 
DK310020 
DK310030 
DK 31 0040 
DK310050 
DK 310 060 
UK310070 
DK 3 100 80 
UK310090 
DK31Q100 
DK310110 
DK310120 
DK 3 10130 
DK310140 
DK310150 
DK310160 
DK310170 
DK310180 
DK310190 
QK310200 
DK310210 
DK310220 
DK310230 
DK 31 0240 
DK 3 10250 
DK310260 
DK 3 10270 
DK310280 
DK310290 
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COMMON HSUN , HALF , HPLAN , NODE DK3 10300 

DIMENSION HSUN(2U0) , HALB { 200 ) , HPL An < 20 0 > , NODE < 200 ) DK310310 

COMMON KttCH QK31G320 

COMMON HA-SUN* HAAlB , HAPLN , NATOT DK310330 

DIMENSION HASUN { 20u ) f HAAL8 ( 2-0.0) f nAPLn { 20U ) ,HATOT(?00) DK310340 

COMMON ZaKEA OK 3 3 0350 

DIMENSION ZAKEA (200) DK310360 

COMMON IMIHRO PK 31 0370 

DIMENSION IMlHRUi200) DK31Q380 

COMMON iMH lF PNAMtrPHIPLl fTIMHLTrNPCO't f EAST » OUMP rLM AX , 1 ONCE DK31039O 

DIMENSION PNaME ( 39 ) , PHIPLT ( 190 ) , I IMPLT ( 390 ) DK 31 0400 

COMMON TYME1 , T YMfc.2 , T YME DK310410 

COMMON AG, In, J,KABG,KL, K f LPJfLL, LN , L , LSHADF , M, NCARD, OK 31 0420 

1NEwDC,NEwGAM,NEWMA1 ,NHE AD, NfNTR I CPEEIfPG, PIN, POUT, POP, SI6MA2 DK3 10430 

COMMON ELAMB, OMEGA, TKALT,TZ,W ,AGNM,PONM DK31Q440 

DIMENSION ELAMB < 200) , OMEGA <200 ) , NZ< 41) ,T*AL1 ( 9 ) , TZ ( 200 ) , W ( 7 ) , 7 <41 ) DK3 10450 
EQUIVALENCE < TRASht 15) ,C1) , (TRASHUb )• C2 ),( TRASH ( 17) ,C3) QK310460 

tQUl VALENCE M RASH U4) ,NBLANK) f <Zll ) ,NZ(1) ) DK310470 

DIMENSION SI 1 190.) ,52(190) , A1 U90 ) , A2 ( 190 ) ,P1 11-90 ) , P2 ( 190 ) , 01 < 190 ) DK3 1 0480 
1,02(190) ,11(190) ,12(190) ,TX(1,20U) ,PhIO(l90) DK31Q490 

DIMENSION AS(200) , BRIJE(200) , D ARk (200) ,>LAMB(?00) ,XM£GA(200) DK310500 

dimension t hats t 16 > , all ( 20 > , Folks ( 13 > DK 310 S 10 

COmMON/HLJK/ AGO, JJ,KK, RUN, NFIRSTf Nall, ALL1,NALL1 DK310520 

call REStl DK310530 

NJ= 2*nPLNET DK310540 

NK= 3* (N'UKIEn+2 ) OK 3 10550 

NL= 3*KTemP +.3 DK3 10560 


IHaTS( D-ZHU) 

OK 3 10570 

IHaTS( 2 ) -WH ( N J— i ) 

DK33 0580 

\ HAT b( 3 ) ”WH ( N J ) 

DK310590 

1 HaT 5 t 41=WH14 ) 

DK310600 

I HrtTS ( b ) -ZH( 2 ) 

OK 3 106 10 

IHAlSI 6 ) = ZH ( 3.) 

OK 31 0620 

1 Ha I 5 ( 7 J — XH ( NK—2 ) 

DK 3 10630 

THAI S ( B)=XHINK~X) 

DK3 10640 

IHmTSI 9)=XH(NK> 

DK310650 

THAT sun )— WH ( 4 ) 

DK310660 

1HaTS( 11 )=ZH(4) 

DK310670 

( Hats ( 12 :J=ZH.t 5 ) 

OK 3 10680 

1HaTS<13)=ZH(6) 

UK310690 

IHaTS<14)=YH(NL-2) 

DK310700 

1 HaT S ( lb ) =YH t NL-jl ) 

OK 3 10710 

I Ha! 5 ( 16 ) ”YH t NL ) 

DK310720 

C Al.L Hi MO EC (AGMM , NALL1 # ALL 1 , AOyM ) 

DK 3 10730 

ALc1=EOTa(ALl1 ) 

DK310740 

iFlNALLl-b)4b,49,49 

OK 3 10750 

wall i=n all i+j. 

DK310760 

DAI A OOdOHL/bH =/ 

OK 3 10770 

ALl_( J)=onOOHL 

OK31 0780 

UAiA OOlUHL/tiHMAXtAL/ 

UK 3 10790 

mLl( p)=QU01hL 

OK310800 

DAI A 0002HL/bHT )MlN=/ 

OK 31 0810 

ALC( 3) “OO02HL 

UK310820 

CALL BJ.NUKC t PGNm fNALL,ALL( 4>fADUK) 

OK 310830 

ALt_<4)=FDl A(ALL(4 ) ) 

UK310840 

DA j A Oy 03HL/bH PnlO^/ 

DK310850 

aLi— ( 5)=qU03HL 

UK 3 10860 

C AuL PiNDEC i PH Iz2 , NALL, ALL ( b ) t ADUM ) 

OK 3 10870 

ALD(to) -FUl A < ALL < t> ) J 

DK310R80 

DA 1 A f;0()4HL/bH DPHl"/ 

UK310890 
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ALU 7)=^U04HL 

CAlL B1NUEC l DPH12 t NALL# ALL < 8 )*AUUM) 

ALl ( 8 ) — PDTA ( ALL ( t> ) > 

DA | A QOObHL/bH SiGM=/ 

ALL ( 9)=Q005HL 

call BINUtC (SIGMA2fNALL, ALLdO) *AUUM) 

ALL l 10 ) =FUTA ( ALU lu ) ) 

DA | A OUObHL/bH Bt.lA=/ 

ALL Cl 1 ) —DOO 6 F 1 L 

CALL HINUEC (BET2 r NALL t ALL ( 12') * AdUM ) 

ALL ( 1 ? ) —FUT A ( ALL ( 12 ) ) 

DATA G007HL/DH PHlN=/ 

ALL < 13 ) ”U007hL 

CALL BINUfcC (PIN rNALLf ALL (14) t AUUK) 

ALL ( 14 ) "PUT A ( ALL ( 14 ) ) 

DATA GOOdHL/bH POU ( =/ 

ALL ( 15 ) “D U 08HL 

CALL BiNDEC (POU 1 > N ALL r ALL ( 16 ) » ADI IM) 

ALl ( 16 ) -FDT A ( ALL ( id ) ) 

IF ( KABG )bbr6u>65 

DA I A OOOyHL/bH AlPH=/ 

DO ALL(17)=UU09hL. 

CALL BiNUeC (ALPa r NALL f ALL ( 18 ) » ADUM ) 
ALL(18)=PDTA( ALL ( Id ) ) 

ALL ( 19) — DUlOhL 

DA (A GUlUHL/bH GrtMt*i=/ 

CALL BINDEC (GAM* > NALL » ALL 1 20 ) t ADUM ) 

ALL (.20') =F UT A ( ALL ( 2u ) ) 

NAlL= 120 
GO TO 6b 
6 b NAlL=96 

DA I A OUllHL/bHINCL*— / 

FOLKS! 1)=Q011HL 

CALL PINDEC(ANINcL»NFf hOLK5( 2>*ADUP) 

folks (.a ) -pdta cfolks ( 2 ) ) 

DA ( A OOlaHL/bH Aug 0/ 

FOLKS < 3>=G0i2HL 
DATA O013HL/6HF PtK=/ 

FOlKS( 4)=Q013HL 

CAlL B I NDfcC ( ASCNOD r NF » FOLKS < S ) » aDUM )• 

FOLKS (b ) =FDT a (FOLKS (b) ) 

DA I A 0014HL/6H LONG ./ 

F OlKS ( bJ=OOi.4HL 

DA I A GU 1 bHL/bHOF ASC/ 

FOLKS ( 7)=0015HL 

DA I A QUlbHL/bH NgUt.=/ 

FOuKSC 8i=G0l6HL 

CALL B IN DEC ( mSNLnG f NF » FOLKS ( g)#mDuNJ 
F0lKS(9)=FUTA{F0lKS (9) ) 

DATA 0017HL/bH \kA.=/ 

FOLKS ( 10 )=Q017HL 

CAlL HI NUtC ( KGT ASC t NF# F OLKS Ul) » ADu*>) 

FOLKS U1 )=FD 1 A (FOLKS ( 11) ) 

DA | A OUlbHL/bH DtC*=/ 

F0LKS(12)=00IBHI. 

CAlL HINDtC (DFCL iN#NF» FOLKS (13T >aOUW) 

F OLKS ( 13 ) =F.O I A ( FOLKS (13)) 

66 LOiNil I NUfc 

*** kETKIFvF ABSoRPT IVlTIFS (SOLAR AnL) AvFKAgF planf r ) 
bu DO 51 I ~ l » NSaT P 


DK 31 0900 
DK310910 
DK310920 
DK 3 10930 
DK3 10940 
DK310950 
OK 3 10960 
OK 3 10970 
DK 3 10980 
OK31099O 
UK3UOOO 
DK311010 
DK 3 l 1020 
DK311030 
DK3H040 
UK31 1050 
DK311060 
UK311070 
DK 3 1 1080 
DK 3 11090 
DK3U100 
UK311110 
UK 31 1120 
DK 3 1 1 130 
DK 311 140 
DK3U150 
UK311160 
DK 31 1 1 70 
DK3U180 
UK311190 
DK311200 
UK 3 11210 
DK3U220 
DK311230 
UK 3 l 1240 
DK3 11250 
DK 3 11260 
UK 31 1270 
DK311 280 
DK 31 1290 
DK311300 
DK 3 1 131 0 
UK311320 
DK 3 1 1 3 3 0 
DK 31 1340 
UK 3 11350 
UK3H360 
UK3U370 
UK 311380 
DK311390 
DK 31 1400 
uK3 11410 
□K3U420 
UK 31 1430 
DK 31 1440 
UK 311450 
DK3H460 
D K 3 1 1 4 7 0 
DK 3 11400 
OK 3 11490 
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XLAM6 ( I ) SELAMB ( I ) *b7. 29578 
XMtGA { X ) IOMEGA < I ) *57. 29578 
JC= NCOATU) 

ASU)=ESuN< JC) 

8 R 1 TE(I)= HALB(I) 

51 UAKK(I)= HSUN(i) 

JT-LAST 

KUN=NUMRJN 

10 IF (NQORf*NQORT - 2 *NQ 0 RT ) 12 f 13 f 12 
13 IG 0 = -1 
GO TO 15 
12 1G0= 0 
lb CONTINUE 

DO 19 II= 1 fLMAX 

19 PHI 0 UI)=RHIRLT(U) 

*** PH 1 Z 2 IS THE INITIAL TRUE ANOMALY VALUE 
XFIPHIZ 2 -. 01 ) 31 f 31 f 32 
32 NSwTCH=l 
GO TO 18 
31 N 5 wTCH =0 
18 CONTINUE 
NF 1 RST =0 
N 3 U =0 

UO 5 I= 1 fNSATPf 2 
REWIND JT 
JJ- 1 
KK=I +1 

DO 20 L-l f LMAX 

*** HEAD BINARY SCRA |CH TAPE JT TO OBTAIN INFORMATION RECORDED BY 
** SUBROUTINE LOOP IN LINK 1 

-** INFORMATION WILL BE RETRIEVED 7 Wo< 2 > NODES PER PASS 

READ C J T > (TXT 1 * J) # HSUN< J) f HALB ( J) f HPLAN { J ) rHASUN ( J } , HAALB ( J ) * 
1 LN(J) fHATOT(J) f J =1 r NS A TP ) 

IF ( I GO ) 25 f 30 f 30 
** RETRIEVE INCIDENT HEATS 
25 S 1 (L)=HSUN(JJ) 

S 2 (L)=HSUN(KK) 

A 1 (L)=HALB( JJ) 

A 2 <L)=HALH(KK) 

P 1 (L)=HPLAN( JJ) 

P 2 (L)=HPLAN(KK) 

GO TO 16 

** RETRIEVE ABSORBED HEATS 
30 SI l L ) -HASUN ( JJ.) 

52 <L)=HASUN(KK) 

A 1 (L)— HAALB ( JJ) 

A 21 L)=HAALB(KK) 

P 1 <L)=HAPLN(JJ) 

P 21 L)=HAPLN(KK> 

«KL)=HA fOTT JJ ) 

G 21 L)=HA rOT(KK) 

16 iF{NGORT*NGORT- 3 *NOORT) 17 f 20 f 17 

17 11 IL): TX(IfJJ) 

T 2 (L)= TXUfKK) 

N 30 =l 

20 CONTINUE 

iF l N30 ) 40 f 40 f 35 
3b IF (NSWTCH ) 40 f 40 f 45 

** aRkANGE TRUE ANOMALY ARRAY (PHIPlT) IN ASCENDING ORDER IF NOT 


DK311500 
DK311510 
DK311520 
DK311530 
DK311540 
DK311550 
OK 3 11560 
DK 3,1 1570 
DK311580 
DK 31 1590 
DK311600 
0K311610 
DK 3 11620 
DK311630 
UK311640 
DK311650 
DK3U660 
DK311670 
DK311680 
DK 3 11690 
DK311700 
OK 3 1 1 7 1 0 
DK311720 
DK311730 
DK 31 1740 
DK31175Q 
DK311760 
DK311770 
DK3U780 
DK3 11790 

OK 31 18 on 

HAPDK31 181 0 
DK 31 1820 
OK 3 11 830 
DK311840 
UK311850 
DK311860 
OK311870 
DK311880 
DK3U890 
UK 31 1900 
OK 31 1910 
OK 3 11920 
DK311930 
0K311940 
DK 31 1950 
DK311960 
DK311970 
DK 3 11980 
DK3 11990 
DK 3 120 00 
OK312010 
OK 3 12020 
DK 312030 
DK31204O 
DK 3 12050 
OK312060 
DK312070 
0X312080 


ALREADY IN SUCH FORM {WILL NOT BE ASCENOING WHEN PHIZ NOT = 0,0 ) OK 312090 
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4b CALL ACCtND ( PHI OlDiP H I'P-LT ( 1 ) # T 1 ( 1 ) # 1 2 ( 1 ) » LM AX ) 

40 CONTINUE 

** SUBROUTINE DRAW CONSTRUCTS IDENTIFIED PLOTS OF HEATS 
** AnU/OK temperatures 

** NODES ARE PLOTTED 1 WO (2) AT A TIME 

CALL DRAW (NODE# PHlPLT#TlMPLT#Sl#S2# A1 # A2# PI# P2 , G1 # G2» T1 # T2# 

1PHIO# PNAMEf IMTHRU»XLAMBrXMEGA., AS#8RITE#DARK #ZAREA » TH ATS # ALL # FOLKS 
2LMAX # KETCH fNQORT ?NSATP# KABG) 
b CONTINUE 
JUMP— 2 

CALL FILMAVU) 

CALL CLOCK (TYME2) 

** RETURN TO PILOT IN LINK 1 WITH JUMP =? 

RETURN 

END 


FOR DECK32 » DECK32 

SUBROUT I NE DRAW (NODE # PHIPLT # T IMPLT .# Si , 52 # A I # A2 # PI # P2 # 01 # 02 # T.l # TP # 
lPHIO# PNAME # IMTHRU #ELAMB # OMEGA # AS# B rIIE# DARK # 2 AREA# THATS# ALL# FOLKS 
2LMAX # KET CH # NoORT r NS A TP # K ABG) 


DIMENSION T.l (190 ) 9 12 ( 190 ) #TELLK 7 > # TELe? ( 7)#RL<9) 

DIMENSION NODE (200 ) rlMTHRU (200 ) • PHIPLT<190> #TIMPLT Q90 ) ,51 < 19Q ) » 
1^2(190) »AlUyO)» A2 (190) # PI ( 190 ) .# P2 ( 190 ) ,01 (190) #02(190) 

DIMENSION TELL (7) fPNAME ( 39) 


DIMENSION S(190) r A (190) # P ( 190 > # 0 ( 190 ) 

DIMENSION XNAME1 113)# XNAME2 (13) # XNaME3 ( 13) 

DIMENSION TOP ( 4 ) # BUT ( 4 ) #YL(9) #TL(9) #PL(9> 

DIMENSION YNAM (b>#TANGM(2> #YTEmP(4) 

DIMENSION PH 10 ( 190) # TAN ( 9) # LOC (9 ) # NC ( 9) #bCD(9) 

DIMENSION AS (200 ) # BK I TE ( 200) »DARK(20U) #ZAREA(200) 

DIMENSION ACROSS 119) # ELAMB ( 200 )» OMEGA (2U0) 

DIMENSION THATSU6) # ALL (20 ) # FOLKS (13) 

COMMON/HLJK/1GO # JJ#KK # RUN # NFIRST # NALL f ALLl # NALLl 

NONE-NFIKST 

IF (NF1RST) 2# 2# 1 

THE INSTRUCTIONS FROM HERE TO STATEMENT NO. 1 ARE REACHED ONCE 


IN EACH CASE 

2 NFIRST =1 
DO 3 1=1 #13 

3 XNAME1 ( 1 ) =PNAME ( i ) 

DO 4 1=1 #13 

4 XNaME2(I)=PNAM£(I+13) 

DO b 1=1 #13 

b XNAME3( I > =PNAMF U+2fo) 

** SET UP BCD SENTENCES TO BE WRITTEN AS PLOT IDENTIFICATION 
DATA QOOuHL/eHTFmPER/ 

Y TEMP ( 1 ) =Q00uHL 

DA I A QOOIHL/6HATURE / 

YTEMP (2 ) =OOOIHL 

DA I A 0002HL/ b HO EG • H/ 

YTEMP (3) =OU02HL 

DA | A 0 00 3 HL / bH ANK I NE/ 

YTEMP(4)=«00oHL 

DAI A OOOUCT/O310b0b232422/ 

I ANOM( 1 ) -OOOuCT 

DAI A QU01CT/O750b0S0b0505/ 

T ANOM ( 2 ) =00 0.1 C T 

DA \ A O004HL/faHNOUE N/ 

IElL ( 1 ) =G004HL 


OK 3 1 2 1 0 0 
DK312110 
DK312120 
DK 3 12 130 
UK312140 
DK312150 
pDK3l2l6n 
0K312170 
DK312180 
0K312390 
DK312200 
DK312210 
DK312220 
0K312230 
DK312240 


DK320000 
DK320010 
pDK320020 
DK 32 00 30 
DK320040 
OK 320050 
0K320060 
DK320070 
DK320080 
□K320090 
DK320100 
DK 3201 10 
DK320120 
DK320130 
DK320140 
DK320150 
DK320160 
DK320170 
DK320180 
DK320190 
DK 320200 
DK320210 
DK320220 
DK 32 0230 
UK320240 
DK320250 
UK 32 0260 
DK320270 
OK320280 
OK 3? 0290 
DK320300 
DK320310 
DK 32 0320 
DK320330 
DK320340 
DK32Q350 
DK 32 0360 
DK 32 0370 
DK320380 
0K32O39O 
DK320400 
DK320410 
DK320420 



UA I A QOObHL/bHUMbEK / 

1 ElL ( 2 ) =G005hL 

DATA QUOoHL/bHCAbE N/ 

IElL( 4)=Q006HL 
TELL<5>=O005HL 
DATA 0007HL/bH L/ 

ACROSS ( 1 ) “Q0U7HL 
DAI A Q006HL/bHAMBDA=/ 

ACkOSS ( 2 ) =OOUBHL 

UA | A OOOyHL/bH OMEO=/ 

ACKOSS(4)=GOU9HL 
IF ( NOORT-3 ) 70 #71 f 71 
DAIA QOlUHL/bH PLANE/ 

71 ACkOSS ( 6>=Qu10Hl 

DAIA QOlIHL/bHT ABS</ 

ACROSS ( 7)=QU11HL 
DATA G0l2HL/bHSUN) =/ 

ACKOSS ( 8)=Gu12Hl 
DAIA G013HL/bH PLNtT/ 
ACK0SS(1U)=0U13HL 
DATA Q0l4HL/bH AdS(S/ 
ACK0SS(11I=GU14Hl 
DAIA QUlbHL/bHHAUE>=/ 

ACkOSS ( 12 ) “Qu15Hl 
DAIA OOlbHL/bH SOLAR/ 

ACKOSS( 14)=QU16Hl 
DAIA QU17HL/bH AdS =/ 

ACROSS ( lb )=GU17 Hl 
DAIA Q01dHL/bH SuKF A/ 

ACROSS! 17)=GU18HL 
DAIA QUiyHL/bHCE A,=/ 

ACROSS (lb) = G u19Hl 
70 IMTOP=30 

i** CONVERT RUN NO, TO BCD 

CALL BiNUEC (RUNfNcKUN#TELL(b) rUDMMY) 
1 ElL ( 6 ) =FUT A ( TELL ( b ) ) 

IF ( NQORT* NQORT -2+NGORT )25,24»25 
DAIA G02(JHL/bHAPSOKB/ 

2b YNaMI) = Q020HL 

DAIA Q021HL/bHED / 

YNAM(2) = Q021HL 
00 TO 26 

DAIA O022HL/bHlNCIUE/ 

24 YNaM(I) =G022HL 

DAIA G023HL/bHNT / 

Y NAM ( 2 I =O025HL 
DAIA Q024HL/bH HtAlr/ 

2b YNAM ( 3 ) -G024HL 

DATA GU2bHL/bHBTu/hR/ 

YNAM(4)=G02ShL 
IF ( KETCH ) 27 r 28 » 27 
DATA Q02bHL/bH F l **2/ 

2tt YNaM ( 5 ) =Q026HL 
00 TO 29 

DAIA 0027HL/bH, , « • • •/ 

27 YNaM ( 5 ) =G027HL 
29 CONTINUE 
XMiN=0.0 

XMAX=T1MHLT(LMAXI 

.1L41).=TIMHLT<1.I 


DK320430 

OK320440 

DK32Q450 

DK320460 

DK320470 

DK320480 

DK320490 

DK320500 

DK320510 

DK320520 

DK320530 

DK320540 

DK320550 

DK3-20560 

DK320570 

QK320580 

DK320590 

DK320600 

DK320610 

DK320620 

DK320630 

DK320640 

DK320650 

DK320660 

DK320670 

DK320680 

DK320690 

DK320700 

DK320710 

DK320720 

DK320730 

DK320740 

DK320750 

DK320760 

DK320770 

DK320780 

DK320790 

DK320800 

QK320810 

DK320820 

DK320830 

DK320840 

DK320850 

DK320860 

DK320870 

0K320880 

DK320890 

DK320900 

DK320910 

DK320920 

DK320930 

DK320940 

DK320950 

OK320960 

OK320970 

DK320980 

DK320990 

DK321000 

DK321010 

DK321020 
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TL(9)=XMAX 

0£L= ( XMAX-XMIN ) /B . 0 

TL(2)=DEL 

DO 6 I— 3f H 

IX=1-1 

b TL(I)=TMIX)+DEL 

*** SKALE DETERMINES A SUITABLE MAXfMlNr AND 7 VALUES IN BETWEEN 

CALL SKALfc ( PHIPlT ( LMAX ) f PHIPLT < 1 ) f PL( 1) r PL(2) fPL<3) *PL<4) f PL (5) , 
IPL (6) * PL 1 7 ) r PL (-6 ) tjPL .( 9) ) 

PMiN= PHD 
PMAXz PL (9) 

1 IF ( NQORT-1 ) I I p 10,0 *11 
11 CONTINUE 

*** bECIN PLOT SCHEMt r STARTING WITH ELEMENT UJ 
IF1RST=1 
INoD£=JJ 
DO 10 1=1 f LMAX 
SU)=S1(U 
A ( i ) =A1 < 1 ) 

PU)=P1U) 

10 Q(i)=Gl(i) 

lb call rse r ( 1 ) 

*** DETERMINE LIMITS OF HEAT ARRAYS 

„CALL HILOW (5(1 ) » LMAX t TOP ( 1 ) f bOT ( 1 ) ) 

CALL HILOW (All) t LMaXf TOP (2.) f bOT ( 2 ) ) 

CALL HILOWtPt 1 ) t LMAX r TOP ( 3 ) f BOT ( 3 ) > 

IFU GO ) 1 b f 1 7 r 17 

17 CAlL HI LQW (Oil) »LMAX r QMAX f BOT (4 ) ) 

CALL H I LuW ( POT (1 ) DUM r QMIN ) 

CO TO IB 

lb bOf (4) =10000.0 
TOP (4) =0.0 

CALL HILOW < TOP ( D f4fQMAXfDUM) 

CALL HILOW (HOT ( 1 ) t 4f UUM# QMIN ) 

IB CONTINUE 

*** SKALE DETERMINES A SUITABLE MAXfMlNf AND 7 VALUES IN BETWEEN 

CALL SKAlE (QMAX# QMIN, YL( l),YL<2>f YL(3)fYL(4) *YL(5) f YL < 6 ) * YL ( 7 ) f 
1 YL ( B ) t YL ( 9 ) ) 

uMIN=YL( 1 ) 

QMAX=YL(9) 

*** GENERATE GRIP ANu PLOT HEATS 

CALL GRIUGN (63 * 1023 f 0 f 960 * 1 2 f 12 f 1 U f iO ) 

CAlL PLO I 1 (l,l»XMINrXMAXrQMIN,QMAXfl IMPLTU) fS<l> rLMAXr ltlHS) 
CALL PLOT 1 (If If XMiNf XMAXfQMlN f QMAXf 1 IMPLT ( 1 ) t A ( 1 > f LMAX r 1 , 1HA ) 
CALL PLOT 1 (I#lf XMiNf XMAXfQMlNfQMAXf TTMPLT(l) fp(l) fLMAXf If 1HP) 

IH 1-GO ) 30 f 20 f 2U 

20 CAlL PLOT1 (if IfXMiNf XMAXfQMIN f Q(V|AXf I IMPLT(l) fQ(l) fLMAXflf 1HQ) 

30 iF ( NONE ) 93 f 94 f 93 
94 UO 7 1=1 f 9 

*** P I NO TRUE ANOMALY (TAN(I)j CORRESPONDING TO TIME THD 
CALL XINfRP (LMAX fT IMPLT ( 1 ) » TL (I ) f PHIO ( 1 ) , TAN ( I ) ) 

*** CONVERT EACH TAN ( 1 ) (TRUE ANOMALY) TO BCU EQUIVALENT 
IF (TAN ( I ) ) 44 f 4 3 f 44 
DA I A QU02CT/0050bUb050bn5/ 

4b bCU(l)=Q002CT 
CO TO B 

44 CALL BINDECd AN(1> fNC( I) fBCD< I) fUUMMY) 
bCu(I)=FUTA<bCD(i) ) 

DUMMY=FD i a ( dummy ) 

B NC ( 1 ) =o 


DK321030 
DK321040 
DK321050 
DK321060 
DK321070 
DK321080 
DK321090 
DK321100 
DK321110 
DK321120 
0K321130 
DK321140 
OK321150 
DK321160 
DK321170 
OK321180 
DK321190 
OK 32 12 00 
DK321210 
DK 32 1220 
DK321230 
DK 32 1240 
DK 32 1250 
QK321260 
DK321270 
DK321280 
DK321290 
DK321300 
DK321310 
DK321320 
QK321330 
DK 32 1340 
DK321350 
DK 32 1360 
DK321370 
DK321380 
DK321390 
DK321400 
DK321410 
DK321420 
DK321430 
DK 32 1440 
DK321450 
UK321460 
DK321470 
DK321480 
DK321490 
UK321500 
DK321510 
DK321520 
UK321530 
DK 32 1540 
UK 32 1550 
0K321560 
DK321570 
UK321580 
DK3P1590 
OK 32 1600 
DK321610 
DK 32 1620 
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*** FIND LOCATION OF TL ( I ) IN RASTER COUNTS 
LtEMP=SCAL£X(TLU ) » 1) 

L0C(I>=L1EMP-21 
7 CONTINUE 

LOC ( 9 ) =LOC!9)-22 

*** PUT .labels and identification ON THE present framf 

93 DO 9b 1=1 »9 

CALL PRINT (LOC ( I ) »981rttr 0>NC( I) rbCU'(i ) ) 

CALL LAHELYtTLd) » 1*0) 

9b CALL LARELXUL(I) r lrO) 

CALL PRINT (63rl0u3> 8, 0 r 78 , XN aME.1 ! 1 ) ) 

C ALL PRINT ( 63 t 1013 t 8 f 0 » 78 , XNAME2 ( 1 ) ) 

CALL PRINT <63*1023* 8# U# 78 * XNAME3 (1)) 

CALL PRINT 1 1,36U*U* .12# 3.0 fYNAMt 11 ) 

CALL PRINT ! 1 ,97u *b* 0*6*6HMIN, ) 

call PRINT X 1,981*6*0* 1.2*TAN.0M(1) ) 

CALL RINDEC(LLAMd(lNpOfc> fNOUMr ACROSS ( 3)*DUM> 

ACROSS ( 3 ) =FD \ A < ACROSS (3)1 
DUm=R)TA(UUM.) 

CALL B INDEX (OMEGaUNOOE ) *NDUM* ACROSS! 5)*0UM) 

ACROSS ( b ) =FDT A ( ACROSS < b J ) 

IF (NOORT— 3 )7b # 73 r 73 

73 CALL R I NOtC (bR ITt ( INODE ) * NOUN, ACROSS! 9), DU M> 

ACROSS ( 9 ) =F D j A ( ACROSS ( 9 ) ) 

CAlL RXNUtet OARk! INODE) *NDUM, ACROSS < 13) *DuM) 

ACROSS (13) =FUT A ( ACROSS ( 13 ) ) 

CALL FUNUhC ( AS < INODE) *NOUM, ACROSS (16) *PUM) 

ACROSS (1 h ) =FuT A ( ACROSS! 16) ) 

NTuP=9b 

IF t Z APE A ( I NODE )> 74 * 75 * 7 4 

74 CALL BXNOFC (2 AREA! INODE) »NDUNr ACROSS (1 9) f DuN) 

ACROSS (19) =FDT A ( ACROSS ( 19 ) ) 

NT OP=1 14 
7b CONTINUE 

CALL PRInY( 70 r 6*8* U* NTOP* ACROSS ( 1 >) 

CALL PRINT ( 138*20*6* Or 96*THATs(D) 

CAcL PRINT! o3f32fbrU» NALL* ALL ( I ) J 
CALL PR I N I ( t>7 , 32 * 7 * U , NALL! , aLLI ) 

IF l KARO) /6 *77,76 

76 CALL PRINT ( 231 * 44 * 8,0* 78 , FOLKS 11)) 

77 CONTINUE 

IF (IF IRS 1-1 )S4*b4*bb 
54 XNODE=NOUE ( DO > 

DO TO 56 

bb XNODE=NOUt(KK) 

C *** CONVERT NODE NO. TO BCD AND WRITE A SENTENCE INCLUDING SAME 
56 CAcL R INutC (XN0UF,NCN0DE»TFLL(3) f DUMMY ) 

T ELL ( 3 ) =FU 1 A ( TEZLl ( 3 ) ) 

NCrAK=12+ NCnODF 

CAcL PRINT 1 b3*992,12* U * NCHAR * TELL ( 1 ) ) 

NCli Ar~12+ NCRUN 

CALL PRINT (280,992, 12 , U * NCHAr , TELL ( 4 ) ) 

C *** lERMXNATt. THIS PcOf AND PROCEED 
CALL DMPbUf 
IF ( IF IRS j —1)41*41 
42 i E lL2 ( 4 ) = T ELl ( 3 ) 

CO TO bO 

41 1ELL1(4)=1ELL(3) 

DO bU 1=1 *LMAX 
SU)=S2(1) 


DK321630 
DK321640 
DK 3 2 1650 
0K321660 
DK 32 1670 
DK321680 
DK321690 
OK321700 
DK321710 
DK 32 1720 
DK321730 
0K321740 
DK321750 
0K321760 
DK 321770 
DK321780 
DK321790 
DK321800 
DK321810 
DK321820 
DK321830 
OK 321840 
DK321850 
0K321860 
DK321870 
DK321880 
DK321890 
DK 321900 
DK 32 1910 
DK321920 
DK321930 
DK321940 
DK 321950 
DK321960 
DK321970 
DK 32 I960 
DK321990 
OK322000 
DK322010 
DK322020 
DK322030 
DK322040 
UK322050 
DK322060 
DK 32 2 070 
DK322080 
DK 3220 90 
GK322100 
DK322110 
UK322120 
DK322130 
OK 322140 
DK 3221 50 
DK322160 
DK322170 
DK3221.80 
DK322190 
DK 3222 00 
DK322210 
0K322220 
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AU)=A2<I> 

PU)=P2< X) 

5U U(I)=G2<I> 

X FIRST = 2 
NONE— 1 
iNODE= KK 

IF ( I NODE— NS ATP ) lbp Ibp 60 
60 IFlNQORT*NGORT- 3*NG0RT U00»l02#l'gn 

100 1 F ( I MTHR U ( J J ) + 1 M I HKU ( K K } ) 1 0 4 # 1 0 2 ri 04 

C *** PLOT STAblLIlED TEMPERATURES OF ELEMENTS JJ AND KK IF RFGUXRED 
104 CALL KILOW <T1 (IKLMAXfTIMAXfTIMIN) 

CALL HILOW (12(l)rLMAXfT2MAXrT2MiN ) 

1 MAX- AMAXK1 IMAXf I2MAX) 

TMiN= AMXN1( UMlNf T2MIN) 

C *** SKALE DETERMINES A SUITABLE MAX * MlN f AND 7 V.AL.UFS IN BETWEEN 

CALL SKALE (1 MAX » TMlN , RL ( 1 ) f RL ( 2 ) fRU 3) »RL (4 ) ,KL<5) »KL (6) # RL (7) f 
1KH6) p RL (9 ) ) 

C *** GENERATE GRIU THEN PLOT STABILIZED TEMPERATURES AND IDENTIFY 
CALL RSEH1) 

CALL GRIDGN (63rl023#n»960rl2 r 12»l0rl0 ) 

IF ( IMTHRU t J J ) ) 67 f 6 7 r 68 

68 CALL PLOil ( 1 , 1 , PMiN r PMAX f RL U ) f RL ( 9 ) , PHxPLT < 1 ) fH (1 ) * LMAX , 1 , lHj 
67 IF ( IMTHRU (KK ) ) 66 r 66 >69 

69 XF IKK-NSATP )o5#6b f 6fe 

6b" CALL PLOT 1 UrlrPMiN,PMAX*RL(l>*HL(9) f PHiPLT(l)»T2U)FLMAX,l,1H2 
C *** T I DENT CONSTRUCTS SENTENCES TELLl AND TELL 2 WHICH UFSCKIbE 

c *** temperature curves 

66 CALL TXDeNT (JJfKKf IMTHRU tD fTELLl 11 ) fTELL 2(1) »NSATP»NCJjFNCKK ) 
DO X01 I =lf 9 
CALL L ABELY CKL ( I ) # 1 f U ) 

101 CALL LABeLX(PLU ) f lrG) 

NNC= 16+ NCNODE 

CALL PRINT ( t>3 f 9dl f 8 1 Of NNC f TELLl (1)1 
NCO— 6+ NCJJ 

CALL PRINT (2bbF9tilF SfUfNCO f TELL l (b) ) 

CAlL PRINT ( 3b 1 f 9dl f 8f0f 6fTLLLK /) ) 

CALL PRINT ( u3f992f 8 f U f NNC f T ELL2 ( 1 ) > 

NCO= 6+ NCKK 

CALL PRINT (2b5f 992f 8 f 0 f NCO f T FLL* ( b > ) 

CALL PRINT (3blf992F 8 fUf 6fTELL2</>) 

CALL PRINT (63f10u3f 8 f U f 78 f XN AME X ( 1 ) ) 


DK322230 
OK322240 
DK322250 
DK322260 
DK322270 
DK322280 
DK 322290 
DK322300 
DK322310 
OK 322320 
DK 322330 
OK322340 
DK322350 
DK 322360 
DK322370 
DK322380 
UK322390 
DK 32 24 00 
DK322410 
DK322420 
DK322430 
)DK322440 
DK 3224 50 
DK322460 
) DK322470 
DK322480 
DK322490 
DK 322500 
OK 322510 
DK 322520 
DK322530 
DK 3 22 540 
DK 322550 
DK322560 
DK322570 
DK322580 
DK322590 
UK322600 
UK322610 
DK 322620 
DK322630 


CALL PRINT (63fl013f 8 f 0 f 78 f XN AMF2 ( 1 > > 

CALL PR I NT ( 63 1 1 023 f 8 f U f 78 f XNAME3 (.1) ) 

CALL PRINK If 969 f 8 f 0 f 12 f T ANOM (1)1 
CALL PRINT (IOf 36b fU #12 f24fYTEmP( 1> ) 
c *** TERMINATE This PlOI AND RETURN TO MA1N2 wH£RE wF WILL OBTAIN 
C *** INt-OKMATiON PERTAINING TO THE NEXT TwO ELEMENTS 
CALL OMPbUF 
102 RETURN 
END 

* FUR DECK 3 3 f utCK 3 3 

SU6ROI I T I Nt SK ALF < T OP f ROT T OM f a * B f C f 0 f E f F f b f h f X I ) 

CSkALE 

C TKUiMCaTEfKOUNu and FLOATf insert 

c tup - given tup value (max) 

C bO I TOM = GIVEN BOTTOM VALUE (MIN) 

C A = SCALED MINIMUM 

c' B = insertfu value 1 

c c .= inserted value 2 

C [> ■= inserted value 3 


7 values between ? given 


UK322640 
DK322650 
DK 322660 
OK 322670 
DK322680 
DK322690 
DK 322700 
DK 3227 10 
DK322720 
DK330000 
DK330010 
DK330020 
VALUFOK330030 
DK330040 
UK330050 
DK330060 
UK33Q070 
DK 33 00 60 
DK330090 
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c c. 


E = INSERTED VALUE 4 DK3301Q0 

F # G » H r AND XI ARE INSERTED AT PROPER LOCATION DK33Q110 


F INC=T0P-80T(0M 

AST = ALOG<FiNC)/ALOG( 10,0) 

IF (AST) 5»lO»10 
b AS ! -AST-1 . 0 
IQ NAST=AST 

PI U AST-1 U , 0**NAST 

FMAXsP10AST+(AINT ( I0P/P 10 AST ) +1 • 0> 
FMIN=P10AST*AINT(BOTTON/P10AST) 

IF t BOTTOM )15»20»20 
lb F MIN-FMIN— PlU AST 
IF (TOP) 17 i20»2u 
17 TOP .= TOP - P10AST 
20 SC=(FMAX-FMIN)/8.0 
asfmin 
B=A+SC 
CSb+SC 
U=C +SC 

e=u+sc 
F=£+SC 
GsF + SC 
H— G+SC 
XI=FMAX 
RETURN « 

END 


FOR OECK34 » UECK34 

SUBROUTINE X1NTRP (N# A» AA#8»Bb) 
DIMENSION A (182)? B<182) 

UO 100 I si # N 

IF ( AA-A( I ) ) 1 r2* 100 
100 CONTINUE 
bB=0.0 
GO TO b 
2 bBsB(K) 

GO TO 5 

1 X=U AA-AVK-1) )* (b(K)-B(K-l ) ) )/(A(K) 
bB=B< K-l 
b RETURN 
ENU 


DK330120 
DK330130 
DK330140 
DK330150 
UK330160 
DK330170 
UK330180 
DK330190 
DK330200 
DK330210 
DK330220 
UK330230 
DK330240 
UK330250 
DK330260 
DK330270 
OK 330280 
OK330290 
0K330300 
0K330310 
DK330320 
DK330330 
DK330340 
DK330350 


DK340000 

DK340010 

DK34Q020 

PK340030 

0K340040 

DK340050 

OK3400fe0 

UK340070 

UK340080 

DK340090 

OK34Q100 

a (K- l ) ) QK 340 110 

OK 34 01 20 
DK340130 
OK 340 140 


FOR UECR35 1 DECK 35 

SUBROUTINE ACCENO ( XOr Xr Y r 2fN) 

C *♦♦ ARKANGE X»T, AND Z IN ORDER OF INCREASING X VALUES BUT KEEP 
♦♦♦ORIGINAL ORDER OF X ARRAy IN XO 
DIMENSION X ( 1 ) » Y ( 1 ) »Z(1) 

DIMENSION XO(l) 

DO 104 J=lrN 
104 X(o)=XO(U) 

K-i 

101 SMALL=X(K) 

DO 100 I=K#,N 
DUMY=X( I ) 

SMaLL=AM INI ( SMALL, t DUM Y ) 

IF (SMALL-X (imOu» 102 , 1 00 

102 1NUEX=I 


DK350000 
DK350010 
DK35002j0 
DK350030 
DK350040 
DK350050 
DK350060 
DK350070 
DK350080 
DK350090 
DK350 100 
DK350110 
OK3S0120 
DK350130 
DK350140 



JLOO continue 

X< INDEX >=X<K) 

X(K)=SMALL 

SAVE-Y(K) 

Y(M=Y( INDEX i 
YtiNOEX)=SAVh 
SAvEZ=Z(K> 

Z(*)=Z( InUEX) 

Z (INDEX >=SAVtZ 
K=K + 1 

iFiX-N) l(jl 1 1U3 * lUl 
IU3 HE 1 URN 
END 


0X350150 

DK350160 

0X350170 

0X350180 

0X350190 

DX350200 

□K35U210 

0X350220 

0X350230 

0X350240 

0X350250 

DK350260 

DK350270 


FOR UECK 36 fUECK 36 

SUBROUTINE HI LOW (TABLE » NPT 5 f XHI t XLO) 
DIMENSION TAbLE(l) 

XLO=T ABLE ( 1 ) 

XHl — T ABLE ( 1 ) 

DO 1 U 1 =2 * NPTS 
XLU=AMINI ( XLU r T AbLb ( I ) ) 

1U XH I “ AMAX I ( XHI t T ABLE ( I ) > 

HE! UkN 
"END 


DK3600 DO 
0X360010 
DK360020 
0X360030 
0X360040 
UK 360 050 
0X360060 
OK 360 070 
0X360080 
0X360090 


FOR DECK 37 1 UECX37 

SUBROUTINE T I DEN | l JJ#KKr IMTHRUHELLi, TFLL2 >NSATP,NCU Jt NCXX) 
+** TIDENT CONSTRUCTS SENTENCES TELL I aND TElLZ WHICH DESCRIBE 
*** TEMPERATURE CURVES 

DIMENSION TELL1 ( / ) » TELL 2 (7 ) * IMTHRU(24J0) 

DA) A Il/O050b050b0b0b/ 

OAIA Tb/bHCUKVE / 

DA I A Tb/bHl = EL/ 

DA } A T7/bHEMLNT / 

OAIA TB/bHAFVER / 

OA I A T9/bH0Rb ITS/ 

DA (A T10/6H2 = EL/ 

IF ( I Ml HRU ( 0 J > > 1 0 > 1 U i- 20 
1U DO lb 1=1 #7 
lb TEcLl ( 1 ) = 1 I 
bO TO 30 
2U i ElLI (1 ) = 15 
1 ElLI ( 2 ) =1 6 
1 ElLI (3 ) =1 7 
1ElL1(5)=TB 
1ELL1<7)=T9 

30 IF(lMfHRUCKK) )40# 4U*bO 
4U DO 45 1 = 1 t 7 
4b TElL 2(I»=II 
bO TO bO 
bU i ELL2 ( 1 ) — T5 
IElL2(2>=T10 
I ELL2 (3) =17 
1 ElL 2 (b) =18 

l£LL2(7)=T9 

•>U I F ( 1 MT HR U ( JJ> + 1 M \ HkU(K K ) ) 6 1 * 7 0 * 6 1 
>1 HOkB 1T=I i 

NELM1=JJ 


0X370000 
OK 370010 
0X370020 
DK370030 
0X370040 
0X370060 
0X370060 
0K370070 
DK370080 
DX37Q090 
0X370100 
DK370110 
DK370120 
0X370130 
0X370140 
0X370160 
0X370160 
DK370170 
0X370180 
DK370190 
0X370200 
0X370210 
OK 370220 
0X370230 
0X370240 
0X370250 
UK370260 
0X370270 
0X370280 
□K370290 
DK370300 
0X370310 
DK370320 
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>7 J.F ( ImTHRu ( NELMT ) J 63 > 83# 62 
)2 ORblT = IM|HKU(NEUv,TJ 

CALL RINULC l ORBIT # NC # HORBIT # DUMMY > 
HOKbiT=FUrA(NORBiT) 

‘O iF i NLLMT— JJ )fa5#6b#fa6 
>b lELLl{6)=H0RbIT 
i\iCoJ=NC 
imelmt=kk 
hohbit=u 

CO TO 67 

b 1 ELL2 ( 6 ) ihORblT 
NCKK=NC 
7 0 HE 1 URN 
END 


DK370330 

‘OK370340 

DK370350 

DK370360 

DK370370 

DK370380 

DK370390 

DK370400 

DK370410 

DK370420 

DK370430 

DK370440 

DK370450 

DK370460 


F OR UECK38 r UECK38 

INTEGER hUNCIION FUIA(WORO) 
IN I EGER WORD 

UAT A MASK/OOUOOOUOUOQ77/ 

J - 0 

UO 1 1 = 1 r 6 

lx* = wORU/2** l 36— fa* i ) 

i\ = ANL) ( iM t MASK ) 

IF ( N ,LE . 9 ) GO iO 2 
bO TO b 
A IM = IN + AH 
bO TO fa 

b if ( N.EO. 2/) N= bl 
iFl N .E0.32) N=33 
IF (N .Eb. 4fa) N-b 
o U = OR(J*?**b»N> 

X COinTINUE 
F L) i A = J 
RE I URN 
LNu 


DK 380000 
DK380010 
DK3R0020 
DK380030 
DK380040 
DK380050 
DK380060 
DK380070 
QK380080 
DK380090 
DK380100 
DK380110 
DK380120 
DK380130 
DK380140 
DK380150 
DK380160 
UK380170 
DK380180 
DK380190 
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